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IDENTIFICATION 

PRODUCT CODE: AC-A910B-HC 

PRODUCT NAME: CZKCEBO DDCHP HD L UNIT TSTS 

DATE: AUGUST 1980 

HAINTAINER: DIAGNOSTICS-HERRIMACK 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
DOCUMENT. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1977, 1980 BY DIGITAL EQUIPMENT CORPORATION 
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1, ABSTRACT 

THE FUNCTION OF THE KHCII DIAGNOSTICS IS TO VERIFY THAT THE 
OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE ALL OPERATIONS 
OF THE KMC11 ARE CORRECT IN ITS ENVIRONMENT. 

PARAMETERS MUST BE SET UP TO ALERT THE DIAGNOSTICS TO THE 
KMCII CONFIGURATION. THESE PARAMETERS ARE CONTAINED IN THE 
STATUS TABLE AND ARE GENERATED IN TWO WAYS: 1) MANUAL 
INPUT - THE OPERATOR ANSWERS QUESTIONS. 2) AUTOSIZING - THE 
PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY. 

OZKCE TESTS THE KMC-11 LINE UNIT (M8201 OR M8202). IT 
PERFORMS WRITE/READ TESTS ON THE KMC LINE UNIT REGISTERS. IT 
CHECKS FOR PROPER TRANSMITTER, RECEIVER. AND BCC OPERATION IN 
DDCMP MODE. THE MODEM SIGNALS ARE ALSO CHECKED. DZKCE 
REQUIRES A KMC MICRO-PROCESSOR (M8204) TO RUN. FOR BEST 
DIAGNOSIS A TURN-AROUND CONNECTOR SHOULD BE INSTALLED, HOWEVER 
THE DIAGNOSTIC UiLL RUN WITHOUT IT (SOME TESTS ARE SKIPPED). 

CURRENTLY THERE ARE FOUR OFF LINE DIAGNOSTICS THAT ARE TO BE 
RUN IN SEQUENCE TO INSURE THAT IF AN ERROR SHOULD OCCUR IT 
UILL BE DETECTED AT AN EARLY STAGE. 

NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 
THE FOUR DIAGNOSTICS ARE: 

1. DZKCC CREV] BASIC W/R AND MICRO-PROCESSOR TESTS 

2. DZKCO CREV] JUMP AND MAIN MEMORY TESTS 

3. DZKCE CREV] DDCMP LINE UNIT TESTS 

4. D2KCF CREV] BITSTUFF LINE UNIT TESTS 

5. DZKCA CREV] KMC11 CPU MICRO-DIAGNOSTICS 

NOTE: AS UPDATES OCCUR, THE NAMES OF THESE DIAGNOSTICS MAY VARIE, 

2. REQUIREMENTS 

2.1 EQUIPMENT 

ANY PDP11 FAMILY CPU (EXCEPT AN LSI-ID WITH MINIMUM 8K MEMORY 

ASR 33 (OR EQUILIVALENT) 

KMC 11 -AN I OP (n8204) 

KMC 11 -DA OR KMC 11 -MO OR KMC 11 -MA 
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90 

92 2.2 STORAGE 

94 PROGRAM WILL USE ALL 8lC OF MEMORY EXCEPT WHERE ABL AND 

95 BOOTSTRAP LOADER RESIDE. LOCATIONS 2100 THRU 2300; CONTAIN 
oZ THE "STATUS TABLE** INFORMATION WHICH IS GENERATED AT START OF 
97 DIAGNOSTICS BY MANUAL INPUT (QUESTIONS) OR AUTOMATICALLY 
og (AUTO-SIZING). THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE 
99 ALTERED BY THE OPERATOR. 

10? I. LOADING PROCEEDURE 

103 3.1 METHOD 

105 ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 

iol ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH 

07 AS DISK .MAGTAPE, DEC TAPE. OR CASSETTE; FOLLOW INSTRUCTIONS 

08 FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC 
109 MEDIA. 

11? ABSOLUTE LOADER STARTING ADDRESS *500 

112 

113 MEMORY • SIZE 
114 

116 8K 37 

117 12K 57 
18 16K 77 

119 20K 117 

120 li^ \ll 

121 28K 157 

122 

III 3.1.1 PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 

125 (ALSO PLACE 'HALT' SU UP) 

127 3.1.2 DEPRESS 'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE. 

Ill 3.1.3 DEPRESS 'START KEY' ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 

130 BE LOADING INTO CPU) 

131 

132 



[ 
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153 
134 

135 4. STARTING PROCEEDURE 

136 

137 A. SET SWITCH REGISTER TO 000200 

138 B. DEPRESS 'LOAD ADDRESS* KEY AND RELEASE 

!39 C. SET SUR TO ZERO FOR 'AUTO SIZING' OR SUR BIT0=1 FOR MANUAL 

140 INPUT (QUESTIONS) OR SUR BIT7=1 TO USE EXISTING PARAMETERS 

141 SET UP BY A PREVIOUS START OR A PREVIOUSLY RUN KMC11 

142 DIAGNOSTIC. 

143 D. DEPRESS 'START KEY' AND RELEASE. THE PROGRAM UILL TYPE 
U4 MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START 
145 UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 

146 

147 MAP OF KMCll STATUS 

148 

149 PC CSR STAT1 STAT2 STAT3 

151 002100 160010 045310 177777 000000 

152 002110 160020 045320 177777 000000 
153 

154 THE PROGRAM WILL TYPE 'R' AND PROCEED TO RUN THE DIAGNOSTIC. 

155 THE ABOVE IS ONLY AN EXAMPLE. THIS WOULD INDICATE THE STATUS 

156 TABLE STARTING AT ADD. 2100 IN THE PROGRAM. IN THIS EXAMPLE 

157 THE TABLE CONTAINS THE INFORMATION AND STATUS OF TWO KMCll 'S. 

158 THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 

159 IS DONE. FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR 

160 HELP. 

161 IF THE DIAGNOSTIC WAS STARTED WITH SW00=1 INDICATING MANUAL 

162 PARAMETER INPUT THEN THE FOLLOWING SHOWS AN EXAMPLE OF THE 

163 N QUESTIONS ASKED AND SOME EXAMPLE ANSWERS: 
164 

165 HOU MANY KMCll 'S TO BE TESTED71 

166 01 

167 CSR ADDRESS7160010 

168 VECTOR ADDRESS7310 

169 BR PRIORITY LEVEL? (4,5,6,7)75 

170 WHICH LINE UNIT? IF NONE TYPE "N". IF M8201 TYPE "1". IF 

171 M8202 TYPE "2'*?1 

172 IS THE LOOP BACK CONNECTOR ON?Y 

173 (ONLY IF M8201 AND LOOP BACK) 

174 WHICH MODEM TYPE, TYPE "D" FOR KMC11-DA (RS232C), OR 

175 TYPE "F" FOR KMC11-FA (V.35)? D 

176 SWITCH PACfl (DDCMP LINEf)?377 

177 SWITCH PACf2 (BM873 BOOT ADD)?377 

178 FOLLOWING THE QUESTIONS THE STATUS MAP IS PRINTED OUT AS 

179 DESCRIBED ABOVE, THE INFORMATION IN THE MAP REFLECTS THE 

180 ANSWERS TO THE QUESTIONS. IF THE DIAGNOSTIC WAS STARTED WITH 

181 SWOO-O AND SW07=0 (AUTO-SIZING) THEN NO QUESTIONS ARE ASKED 

182 AND ONLY THE STATUS-MAP IS PRINTED OUT, IF AUTO-SIZING IS 

183 USED THE STATUS INFORMATION MUST BE VERIFIED TO BE CORRECT 

184 (MATCH THE HARDWARE). IF IT DOES NOT MATCH THE HARDWARE THE 

185 DIAGNOSTIC MUST BE RESTARTED WITH SW00=1 AND THE QUESTIONS 

186 ANSWERED. 
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4.1 



CONTROL SWITCH SETTINGS 



sy IS 
su u 
su 
su 



SET 
SET 
13 SET 
12 SET 
SET 



SU 11 
SU 10 SET 
SU 09 SET 
SU 08 
SU 07 
SU 06 



SET 
SET 
SET 



SU 05 
SU 04 
SU 03 
SU 02 
SU 01 
SU 00 



SET: 
SET: 
SET: 
SET: 
SET: 
SET: 



HALT ON ERROR 

LOOP ON CURRENT TEST 

INHIBIT ERROR PRINT OUT 

INHIBIT TYPE OUT ABELL ON ERROR. 

INHIBIT ITERATIONS. (QUICK PASS) 

ESCAPE TO NEXT TEST ON ERROR 

LOOP WITH CURRENT DATA 

CATCH ERROR AND LOOP ON IT 

USE PREVIOUS STATUS TABLE. 

HALT IN ROHCLK ROUTINE BEFORE CLOCKING 

MICRO-PROCESSOR 

RESERVED 

RESERVED 

RESELECT KHCIVS DESIRED ACTIVE 

LOCK ON SELECTED TEST 

RESTART PROGRAM AT SELECTED TEST 

BUILD NEU STATUS TABLE FROM QUESTIONS. (IF SU07:0 
AND SUOO=0 A NEU STATUS TaBLE IS BUiLT BY 
AUTO-SIZING) 



SUITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED AS NEEDED 
UHILE THE DIAGNOSTIC IS RUNNING. SWITCHES 00-03 AND SWITCH 07 
ARE STATIC. AND ARE USED ONLY ON STARTING OR RESTARTING THE 
DIAGNOSTIC. 
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215 
216 

217 4.1.2 SWITCH REGISTER OPTIONS (AT START UP) 

219 SW 01 RESTART PROGRAH AT SELECTED TEST. IT IS STRONGLY 

220 SUGGESTED THAT AT LEAST ONE PASS HAS BEEN HADE BEFORE 

221 TRYING TO SELECT A TEST. THE REASON BEING IS THAT THE 

222 PROGRAH HAS TO CLEAR AREAS /AND SET UF PARAHETERS. 
22I WHEN THIS SUITCK IS USED THE DIAGNOSTIC WILL ASK TEST 

224 NO.? ANSWER BY TYPING THE NUf^ER OF THE TEST DESIRED 

225 AND CARRIGE RETURN TO BEGIN EXECUTION AT THE SELECTED 

226 TEST. 
227 

228 SU 02 LOCK ON SELECTED TEST. THIS SWITCH WHEN USED WITH 

%%q SW01 WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE 

230 SELECTED TEST. HITTING ANY KEY ON THE CONSOLE WILL 

231 LET IT ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY 

232 IS HIT AGAIN. IF SW02=0 WHEN SW01 IS USED. THE 

233 PROGRAH WILL BEGIN AT THE SELECTED TEST AND CONTINUE 

234 NORMAL OPERATIONS. 
235 

236 SW 03 RESELECT KHCirS DESIRED ACTIVE. PLEASE NOTE THAT A 

237 MESSAGE IS TYPED OUT FOR SETTING THE SWITCH REGISTER 

238 EQUAL TO KHCll'S ACTIVE. THIS MEANS IF THE SYSTEM HAS 

239 FOUR KHCllS; BITS 00,01,02.03 WILL BE SET IN LOC 

240 'KMACTV FROM THE SWITCH REGISTER. USING THIS 

241 SWITCH(SWOO) ALTERS THAT LOCATION.-THEREFORE IF FOUR 

242 KMC11S ARE IH THE SYSTEM •**D0 NOT*** SET SWITCHS 

243 GREATER THAN SW 03 IN THE UP POSITION. THIS WOULD BE 

244 A FATAL ERROR. DO NOT SELECT MORE ACTIVE KHC11S THAN 

245 THERE IS INFORMATION ON IN THE STATUS TABLE. 
?4A 

247 METHOD: A: LOAD ADDRESS 200 

248 B: START WITH SW 00=1 

249 C: PROGRAM WILL TYPE MESSAGE 

250 0: SET A SWITCH FOR EACH KMC DESIRED ACTIVE. 

251 EXAMPLE: IF YOU HAVE 4 KMC'S BUT ONLY WANT TO 

252 RUN THE FIRST AND THE LAST SET SWR BITS 0 AND 

253 3=1. PRESS CONTINUE 

254 E: NUMBER (IF VALID) WILL BE IN DATA LIGHTS 

255 (EXCLUDING 11/05) 

jU F: SET WITH ANY OTHER SWITCH SETTINGS DESIRED. 

257 PRESS CONTINUE. 
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4.1.3 DYNAMIC SWITCHES 
ERROR SWITCHES 



H 1 



SEO 0007 



4.2 



5. 



1. 
2. 
3. 
4. 
5. 



SW 12 
SW 13 
SW 15 
SW 08 
SW 10 



DELETE PRINT OUT/BELL ON ERROR. 
DELETE ERROR PRINTOUT. 
HALT ON THE ERROR. 

GOTO BEGINNING OF THE TEST(ON ERROR) 
GOTO NEXT TEST (ON ERROR). 



SCOPE SWITCHES 



1. SW06 HALT IN ROnCLK ROUTINE BEFORE CLOCKING 

HICRO-PROCESSOR INSTRUCTION. THIS ALLOWS THE 
OPERATOR TO SCOPE A HICRO-PROCESSOR INSTRUCTION IN 
THE STATIC STATE BEFORE IT IS CLOCKED. HIT 
CONTINUE TO RESUME RUNNING. 

2. SW09 (IF ENABLED BY 'SCOPD ON AN ERROR; IF AN IS 

PRINTED IN FRONT OF THE TEST NO. (EX. -TEST NO. 
10 ) SW09 IS INCORPORATED IN THAT TEST AND 
THEREFORE SW09 IS USUALLY THE BEST SWITCH FOR THE 
SCOPE LOOP (SW14=0, SW10=0. SW09=1 . SW08=0). IF 
SW09 IS NOT ENABELED: AND THERE IS A HARD ERROR 
(CONSTANT): SWOB IS BEST. (SWU=1,0. SW10=0. 
SW09=0. SW08=1). FOR INTERMITTEHT ERRORS; SW14=1 
WILL LOOP ON TEST REGUARDLESS OF ERROR OR NOT 
ERROR. (SW14=1, SW10=0. SW09=0, SW08=1 .0) 

3. SW11 INHIBIT INTERATIONS. 

4. SW14 LOOP ON CURRENT TEST. 

STARTING ADDRESS 

STARTING ADDRESS IS AT 000200 THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE ICHC11 DIAGNOSTICS. (SEE SECTION 4.0) 

NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT 
IS UNDER ACT11 OR XXOP CONTROL AND WILL ACT 
ACCORDINGLY AFTER ALL AVAILABLE KHCII'S ARE TESTED THE 
PROGRAM WILL RETURN TO 'XXDP* OR 'ACT-IV. 

OPERATING PROCEDURE 

WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 
SECTION 4.0 WILL BE PRINTED, AND PROGRAM WILL BEGIN RUNNING 
THE DIAGNOSTIC 



L 
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306 
307 

308 5.2 PROGRAM AND/OR OPERATOR ACTION 
309 

310 THE TYPICAL APPROACH SHOULD BE 
311 

312 1. HALT ON ERROR (VIA SU 15=1) WHEN EVER AN ERROR OCCURS. 

313 2. CLEAR SU 15. 

3U 3. SET SU U: (LOOP ON THIS TEST) 

315 4. SET SU 13: (INHIBIT ERROR PRINT OUT) 

316 

317 THE TEST NUMBER AND PC UILL BE TYPED OUT AND POSSIBILY AN 

318 ERROR MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERATOR 

319 AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 

320 TO KNOU MORE INFORMATION CONCERNING THE ERROR REPORT; LOOK IN 

321 THE LISTING FOR THAT TEST NUMBER UHICH UAS TYPED OUT AND THEN 

322 NOTE THE PC OF THE ERROR REPORT THIS UAY THE EXACT FUNCTION OF 

323 THE TEST CAN BE DETERMINED. 
324 

325 6. ERRORS 
326 

327 AS DESCRIBED PREVIOUSLY THERE UiLL ALUAYS BE A TEST NUMBER AND 

328 PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SU 13=0 AND SU 

329 12=0). IN MOST CASES ADDITIONAL INFORMATION UiLL BE SUPPLIED 

330 IN THE THE ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF 

331 THE ERROR. 
332 

333 6.2 ERROR RECOVERY 
334 

335 IF FOR SOME REASON THE KMC11 SHOULD 'HANG THE BUS" (GAIN 

336 CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 

337 AN INIT OR POUER DOUN/UP IS NECESSARY FOR OPERATOR TO REGAIN 

338 CONTROL OF CPU. IF THIS SHOULD HAPPEN; LOOK IN LOCATION 

339 'TSTNH' (ADDRESS 1202) FOR THE NUMBER OF THE TEST THAT UAS 
3A0 RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS WAY 
3^1 THE OPERATOR UILL HAVE AN IDEA AS TO UHAT THE KMC11 UAS DOING 
342 AT THE TINE OF THE ERROR. 

343 

344 7. RESTRICTIONS 
345 

346 7.1 STARTING RESTRICTIONS 
347 

348 SEE SECTION 4. (PLEASE) 

349 STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOU PROGRAM UAS 

350 STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG UITH 

351 THE INFORMATION PRINTED ON THE TTY TO COMPLETLY ISOLATE 

352 PROBLEMS. 
353 
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354 

3S6 7.2 OPERATING RESTRICTIONS 

III THE FIRST TINE A KHC11 DIAGNOSTIC IS LOADED INTO CORE AND RUN 

359 THE STATUS TABLE BUST BE SET UP. THIS IS DONE BY MANUAL INPUT 

iio (SUOO^I) OR BY AUTOSIZING (SUOO=0 AND SW07=0) . THEREAFTER 

361 HOWEVER THE STATUS TABLE NEED NOT BE SETUP BY SUBSEQUENT 

362 RESTARTS OR EVEN LOADING THE NEXT KMC DIAGNOSTIC BECAUSE THE 

363 STATUS TABLE IS OVERLAYED. THE CURRENT PARAMETERS IN THE 
36; STATUS TABLE ARE USED WHEN SW07=1 ON START UP. 

366 7.3 HARDWARE CONFIGURATION RESTRICTIONS 
367 

368 IOP(«8204)- JUMPER Wl MUST BE IN. 

370 LINE UNIT(H8201)- JUMPERS Wl , W2, AND U4 MUST BE IN. JUMPERS 

371 W3. AND W5 MUST BE OUT. SW8 OF E?6 MUST BE IN THE ON 

372 POSITION. 

374 LINE UNIT (M8202)- JUMPER Wl MUST BE IN. SW8 OF E26 MUST BE 

375 IN THE OFF POSITION. 
376 

377 8. MISCELLANEOUS 

379 8.1 EXECUTION TIME 

380 

381 ALL KMC11 DEVICE DIAGNOSTICS WILL GIVE AN 'END PASS' MESSAGE 

382 (PROVIDING NO ERRORS AND SW12=0) WITHIN 4 MINS. THIS IS 

383 ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 
386 POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 

385 ON THE PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE 

386 SYSTEM. 
387 

388 8.2 PASS COMPLETE 

389 

390 NOTE: EVERY TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN 

391 AS IF SW11 (DELETE ITERATIONS) WAS UP (=1). THIS IS TO 

392 'VERIFY NO HARD ERRORS' AS SOON AS POSSIBLE. THEREFORE THE 

393 FIRST PASS -EACH TIME PROGRAM IS STARTED- WILL BE A 'QUICK 
39A PASS' UNTIL ALL KHCH'S IN SYSTEM ARE TESTED. WHEN THE 

395 DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 

396 THE PRINT OUT TO BE EXPECTED. 
397 

398 END PASS DZKCE CSR: 175000 VEC: 0300 PASSES: 000001 

399 ERRORS : 000000 

40? NOTE: THE PASS COUNT AND ERROR COUNTS ARE CUMMULITIVE FOR 

202 EACH KMC11 THAT IS RUNNING. AND ARE SET TO ZERO ONLY 

403 WHEN THE DIAGNOSTIC IS STARTED. THEREFORE AFTER AN 

404 OVERNIGHT RUN FOR EXAMPLE. THE TOTAL PASSES AND ERRORS 

405 FOR EACH KHC11 SINCE THE DIAGNOSTIC WAS STARTED ARE 

406 REFLECTED IN PASSES: AND ERRORS.. 
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8.4 



KEY LOCATIONS 
IPADR (1206) 



NEXT (1442) 



CONTAINS THE ADDRESS UHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 



CONTAINS THE ADDRESS OF THE NEXT 
PEFORHED. 



TEST TO BE 



TSTNH (1202) CONTAINS THE NUMBER OF THE TEST NOW BEING 
PE FORMED. 



RUN 



(1500) 



KMCR00-KMCR17 
KHST00-KMST17 
(2100)-(2300) 



KMACTV (1470) 



THE BIT IN 'RUN' ALWAYS POINTS TO THE KMC11 

CURRENTLY BEING TESTED. EXAMPLE: (RUN) 

1500/0000000001000000 MEANS THAT KMC11 NO. 06 
IS THE KMC 11 NOW RUNNING. 



THESE LOCATIONS CONTAIN THE INFORMATION NEEDED 
TO TEST UP TO 16 (DECIMAL) KMC11S SEQUENTIALY. 
THEY CONTAIN THE CSR, VECTOR AND STATUS 
CONCERNING THE CONFIGURATION OF EACH KMC11. 

EACH BIT SET IN THIS LOCATION INDICATES THAT 
THE ASSOCIATED KMC11 WILL BE TESTED IN TURN. 
EXAMPLE: (KMACTV) 1470/0000000000011111 MEANS 
THAT KMCII NO. 00«01 .02.03.04 WILL BE TESTED. 
EXAMPLE: (KMACTV) 1470/0000000000010001 MEANS 
THAT KMC11 NO. 00.04 UILL BE TESTED. 



KMCSR (2066) 



CONTAINS THE CSR OF THE 
TEST. 



CURRENT KMC 11 UNDER 



8.4A 'STATUS TABLE' (2100-2300) 



THE TABLE IS FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER 
INPUT (QUESTIONS) AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY 
USER: THE LOCATIONS HAY BE ALTERED BY HAND (TOGGLED IN) TO 
SUIT THE SPECIFIC CONFIGURATION. 

THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS INFORMATION FOR 
TWO KMCirS. THE TABLE CAN CONTAIN UP TO 16 KHCII'S. 
FOLLOWING THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP 
ENTRY 



PC 



MAP OF KNC11 STATUS 



CSR STAT1 STAT2 STAT3 



002100 160010 045510 Mim 000000 
002110 160020 016320 000000 000000 



SEQ 0010 
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SEO 0011 
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464 

465 

466 

467 

468 

469 

470 

471 

472 

475 
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481 

482 

483 

484 

485 

486 

487 

488 



EACH HAP ENTRY CONTAINS 4 WORDS UHKH CONTAIN THE STATUS 
INFORMATION FOR 1 KHC11. THE PC SHOWS WHERE IN CORE MEMORY 
THE FIRST OF THE 4 WORDS IS. IN THE EXAMPLE ABOVE THE FIRST 
KMC'S STATUS IS IN LOCATIONS. 2100. 2102. 2104, AND 2106. THE 
SECOND KMC STATUS IS LOCATED AT 2110, 2112. 2114, AND 2116. 
THE INFORMATION CONTAINED IN EACH 4 WORD ENTRY IS DEFINED AS 
FOLLOWS: 

CSR: CONTAINS KHC11 CSR ADDRESS 

STAT1: BITS 00-08 IS KMCII VECTOR ADDRESS 
BIT14=1 TURNAROUND CONNECTOR IS ON 
BIT14=0 NO TURNAROUND CONNECTOR 
BIT13=0 LINE UNIT IS AN M8201 
BIT13=1 LINE UNIT IS AN M8202 
BITIZ^I NO LINE UNIT 
BITS 09-11 IS KMC11 BR PRIORITY LEVEL 

STAT2: LOW BYTE IS SWITCH PACfl (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOi ADD) 

STAT3: BIT 2=0 KMC11-DA 
BIT 2=1 KHC11-FA 
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A89 
A90 

491 8.5 METHOD OF AUTO SIZING 
492 

493 8.5.1 FINDING THE CONTROL STATUS REGISTER. 

494 

495 THE AUTO-SIZING ROUTINE FINDS A KMCH AS FOLLOWS: IT STARTS 

496 AT ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP 

497 TO AND INCLUDING ADDRESS 167760. IF THE ADDRESS DOES NOT TIME 

498 OUT, THE FOLLOWING IS DONE, THE FIRST CRAM ADDRESS IS WRITTEN 

499 TO A 125252 THEN IT IS READ BACK. IF IT CONTAINS A -1 OR 

500 125252 , IF NOT, THE ADDRESS IS UPDATED BY 10 AND THE SEARCH 

501 CONTINUES. A -1 INDICATES A KMCII WITH NO CRAM, AND A 125252 

502 INDICATES A KMC11 WITH C^AM. FURTHER TESTS ARE PERFORMED AT 

503 THIS POINT TO DETERMINE WHICH LINE UNIT, IF ANY. IS INSTALLED, 

504 IF A LOOP-BACK CONNECTOR IS INSTALLED AND VARIOUS SWITCH 

505 SETTINGS ON THE LINE UNIT. THIS IS WHY THE STATUS TABLE MUST 

506 BE VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 

507 AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 

508 THE QUESTIONS MUST BE ANSWERED. ALL KMCII'S IN THE SYSTEM 

509 WILL BE FOUND BY THE AUTO-SIZFR. IF IT DOES NOT FIND A KMC11 

510 THE DIAGNOSTIC MUST BE RESTARTbD AND THE QUESTIONS ANSWERED. 

512 8.5.2 FINDING THE VECTOR AND BR LEVEL 

513 

514 THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE 

515 INSTRUCTION lOT AND '.♦2' (NEXT ADDRESS). THE PROCESSOR 

516 STATUS IS STARTED AT 7 AND THE KMC IS PROGRAMMED TO INTERRUPT. 

517 THE PS IS LOWERED BY 1 UNTIL THE KMC INTERRUPTS, A DELAY IS 

518 MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3 (BECAUSE OF A 

519 BAD KMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL 

520 5 AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE 

521 PROBLEM IS FIXED: THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 

522 CORRECT VECTOR. IF AN INTERUPT OCCURED; THE ADDRESS TO WHICH 

523 THE KMC11 INTERUPTED TO IS PICKED UP AND REPORTED AS THE 

524 VECTOR. NOTE: IF THE VECTOR REPORTED IS NOT THE VECTOR SET 

525 UP BY YOU: THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE 

526 DONE. 
527 

528 8.6 SOFTWARE SWITCH REGISTER 
529 

530 IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A 

531 SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO 

532 ALLOW USER THE SAME SWITCH OPTIONS AS DESCRIBED PREVIOUSLY. 

533 IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 

534 AND IT CONTAINS ALL ONES (177777) THIS SOFTWARE SWITCH 

535 REGISTER IS USED. 
536 

537 CONTROL: 
538 

539 TO OBTAIN CONTROL AT ANY ALLOWABLE TIME DURING EXECUTION OF 

540 THE DIAGNOSTIC THE OPERATOR TYPES A CTRL G ON THE CONSOLE 

541 TERMINAL KEYBOARD. AS SOON AS THE CTRL G IS RECOGNIZED, BY 

542 THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED: 
543 

544 SWR=XXXXXX NEW? 
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545 
546 

547 WHERE XXXXXX IS THE CURRENT CONTENTS OF THE SOFTWARE SWITCH 

548 REGISTER IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN 

549 AWAIT OPERATOR ACTION. AT WHICH TIME THE OPERATOR IS REQUIRED 

550 TO TYPE ONE OR BORE OF THE LEGAL CHARACTERS: 1) 0-7, 2) 

551 LINE FEED«LF». 3) CARRIAGE RETURN«CR». OR 4) CONTROL-U 

552 (CTRL U). NO CHECK IS HADE FOR LEGALITY. IF THE INPUT 

553 CHARACTER IS NOT A <LF>, <CR>, OR CTRL U IT IS ASSU«1ED TO BE 

554 AN OCTAL DIGIT. 
555 

556 TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES 

557 THE NEW DESIRED VALUE IN OCTAL - LEADING ZEROS NEED NOT BE 

558 TYPED. AND TERMINATES THE INPUT STRING WITH A <CR> OR <LF> 

559 DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW. 

560 THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS TYPED. 

561 AT LEAST ONE DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING 

562 PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 
563 

564 WHEN THE INPUT STRING IS TERMINATED WITH A <CR> THE DIAGNOSTIC 

565 WILL CONTINUE EXECUTION FROM THE POINT Al WHICH IT WAS 

566 INTERRUPTED. IF A <CR> IS THE ONLY THING TYPED THE PROGRAM 

567 WILL CONTINUE WITHOUT CHANGING THE SSR. THE <LF> DIFFERS FROM 

568 THE <CR> BY RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT 

569 ADDRESS 200. 
570 

571 IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO 

572 THE TERMINATOR THE INPUT VALUE WILL BE DISREGARDED AND THE 

573 PROMPT DISPLAYED (SWR = XXXXXX NEW?). 

574 

575 TO SEf THE SSR FOR THE STARTING SWITCHES, FIRST LOAD THE 

576 DIAGNOSTIC, THEN HIT CTRL G, THEN START THE DIAGNOSTIC. 



577 
578 

580 

581 NOTE: FOR IPG'S LINE UNIT M8202-YE USERS. 

582 

583 

584 CABLE DATA TEST: [TEST 56 TEST 57] 

585 

586 THESE TESTS WON'T RUN RELIABLY ON LINE UNITS WITHOUT 

587 TERMINATING RESISTENCE. 
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588 
589 

590 APT/ACT/XXOP/SLIDE 
591 

592 THIS DIAGNOSTIC IS APT/ACT/XXDP/SLIDE COMPATIBLE USER WOULD BE 

593 ABLE TO RUN IT UNDER APT/ACT/XXDP ENVIRONMENT. 
594 

595 NOTE: FOR MANUFACTURING PURPOSE ONLY ITS DESCRIBED HOV TO RUN 

596 UNDER APT ENVIRONMENT. 



597 

598 .•..«.*.«••♦*.♦•♦♦♦«••.•**•••*•••••••*♦♦•••*•••••••••• 

599 

600 E TABLE SETTING FOR APT TO RUN UNDER APT 

601 

602 

603 

604 FIRST PASS TIME: 

605 

606 LONGEST TEST TIME: 

607 

608 ADDITIONAL TEST TIME: 

609 

610 ALL THE ABOVE PARAMETERS ARE DEPENDENT ON PARTICULAR 

611 DIAGNOSTICS AND SHOULD BE LOADED AT THE TIME OF SETTING 

612 ETABLE. THERE IS NO DEFAULT TIME SET UP. 

614 SOFTWARE ENVIRONMENT : 001 ENVIRONMENT MODE: 200 

616 SWITCH 1:-SHOUL0 BE USED AS NORMAL SWITCH REGISTER. 
617 

618 SWITCH 2:-N0T USED. 
619 

620 CPU OPT IONS: -NOT USED. 
621 

622 MEMORY TYPE 1 :-BITS<2:4>:=BITS <12:14> OF STAT1 OF DEV:0. 
6? 3 

624 MAXIMUM ADDRESS:-BITS<17:19>:=BITS<12:14> OF STAT1 OF DEV:1 

626 BITS<2:4>:=BITS <12:14> OF STAT1 OF DEV:2 

628 BITS<10:12>:=BITS<12:U> OF STATl OF DEV:5 

629 

630 IN THE SAME MANNER 

632 MEMORY TYPE 2 MAXIMUM ADDRESS:-GETS STAT1<12:14> OF DEVICE 

633 4.5.6.7. 
634 

635 MEMORY TYPE 3 MAXIMUM ADDRESS:-GETS STAT1<12:14> OF DEVICE 

636 8.9.10.11. 

638 MEMORY TYPE 4 MAXIMUM ADDRESS:-GETS STAT1<12:14> OF DEVICE 

639 12.13.14,15. 

641 INTERRUPT VECTOR 1:flRST DEVICE RECEIVE VECTOR. 
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642 
643 

644 REST OF THE OEVICE(KHC'S) VECTOR SHOULD BE SET UP SEQUENTIALLY 

645 IN INCREMENTS OF 10. 
646 

647 BUS PRIORI TY:Kfl£'S PRI0RITY(SH0ULD BE SAME FOR ALL KMC'S UNDER 

648 TEST). 
649 

650 INTERRUPT VECTOR 2:N0T USED. 

651 

652 BUS PRIORI TV -.NOT USED. 

6Sl 

654 BASE ADDRESS:FIRST DEVICE CSR ADDRESS. 

655 

656 REST SHOULD FOLLOW SEQUENTIALLY 

657 

658 IN INCREMENTS OF 10. 

659 

660 DEVICE MAP: AS DESCRIBED IN APT MANUAL. 

661 

662 CONTROLLER SPECIFIC CODE 1:-N0. OF DEVICES UNDER TEST. 

663 

664 CONTROLLER SPECIFIC CODE 2:-N0T USED. 

665 

666 DEVICE DESCRIPTOR WORD 0:STAT2 OF FIRST DEVICE. 

667 

668 • . 

669 

670 . . 

671 

672 TO 
673 

674 . . 

675 

676 . . 

677 

678 DEVICE DESCRIPTOR WORD 15:STAT2 OF 16TH DEVICE. (KMC) 

679 

680 9.0 HISTORY 

681 

682 THIS DIAGNOSTIC WAS UPDATED TO DETECT FOR THE CONDITION OF V.35 

683 AND M8201. IN THIS CONIFURATION, RING WILL NOT BE LOOPED BACK 

684 AND SHOULD NOT BE TESTED FOR. 

685 % 
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686 




687 




688 




689 




690 




691 




692 




693 




694 




695 




696 




697 




698 




699 




700 




701 




702 




703 




704 




705 




706 




707 




708 




^ AA 

709 




^ 4 A 

710 




71 1 




712 




713 




714 




715 




716 




717 




718 




719 




720 




7Z1 




722 


001 200 


723 




724 




725 




726 




727 


A AAA 1 1 

00001 1 


728 


AAAA1 

00001 £ 


729 


AAAA i C 

00001 5 


^ V A 

730 


AAA ^ A A 

000200 


731 


177776 


732 




733 


1 fJTJU 


734 


Mfffi 


7T C 

735 


i 77c 7A 

1 7r570 


736 


4 77C 7A 

177570 


737 




r 30 




739 


000000 


740 


000001 


741 


000002 



SEQ 0016 



TITLE CZKCE 
•COPYRIGHT (C) 1976 
•DIGITAL EQUIPMENT CORP. 
•MAYNARD. MASS. 01754 
* 

•PROGRAM BY DINESH GORADIA 

•THIS PROGRAM UAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
•PACKAGE (HA1N0EC-11-DZQAC-C3). JAN 19, 1977. 



;»CZKCE KMC11 ODCMP LINE UNIT TESTS 

.'•COPYRIGHT 1976. DIGITAL EQUIPMENT CORP.. MAYNARO. MASS. 01754 

.•STARTING PROCEDURE 

;LOAD PROGRAM 

.■LOAD ADDRESS 000200 

:SUR=0 AUTOS I 2E KMC 11 

:SW07»1 USE CURRENT KMC11 PARAMETERS 

;SU00=1 INPUT NEW KMC11 PARAMETERS 

'PRESS START 

IpROGRAM WILL TYPE "CZKCE KMC11 ODCMP LINE UNIT TESTS" 
.'PROGRAM UILL TYPE STATUS HAP 

.-PROGRAM UILL TYPE "R" TO INDICATE THAT TESTING HAS STARTED 
;AT THE END OF A PASS. PROGRAM UILL TYPE PASS COMPLETE MESSAGE 
.'AND THEN RESUME TESTING 

.'SUBSEQUENT RESTARTS UILL NOT TYPE PROGRAM TITLE 
.SBTTL BASIC DEFINITIONS 

.'•INITIAL ADDRESS OF THE STACK POINTER 1200 ••• 
STACK= 1200 

.EOUIV EHT, ERROR ;;BASIC DEFINITION OF ERROR CALL 

•EOUIV lOT. SCOPE ;:BASiC DEFINITION OF SCOPE CALL 



; •MISCELLANEOUS 



HTs 
LF = 
CR= 
CRLFs 
PS= 
.EQUIV 
STKLMT= 
PIRQs 
DSUR= 
DDISP: 



11 
12 
15 
200 

177776 
PS,PSW 
177774 

Mim 

177570 
177570 



DEFINITIONS 

.':COOE 
;;CODE 
;;CO0E 
.':CODE 



TAB 



FOR HORIZONTAL 
FOR LINE FEED 
FOR CARRIAGE RETURN 
FOR CARRIAGE RETURN-LINE 
••PROCESSOR STATUS WORD 



FEED 



; .-STACK LIMIT REGISTER 
;; PROGRAM INTERRUPT REQUEST REGISTER 
:; HARDWARE SWITCH REGISTER 
::HARDUARE DISPLAY REGISTER 



;*GENERAL PURPOSE REGISTER DEFINITIONS 

ROs ZO ::GENERAL REGISTER 

R1= XI ;:GEHERAL REGISTER 

R2= X2 ;;GENERAL REGISTER 
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tiHt .rl 1 


/SBm nil .flA 

UO"JUL"OU 


(HC 




TL X 
f Hi 


AAAAAA 


TLL 


AAAAAC 


ILK 


AAAAAA 


f HO 


nAAAA7 




AAAAAA 


7/. a 


AAAAn7 






7<n 




If 1 


UUUvUv 


70 




7SX 






nnoi/.A 


7^^ 




( JQ 




7K7 

fji 




fJO 




7^0 




r Ov 




7A1 




fOc 




f 03 


Ucvvvv 


f o*» 




7A^ 
f 05 




7AA 
r 00 




7*7 
f 0' 


nni oon 


1 00 


UvUHUU 


7AQ 

f oy 


WVCvv 


77n 


nnnino 


771 


VUUUHW 


77? 

lie 




1 1 J 


00001 0 


1 1 H 


00000^ 


77S 

1 1 J 


00000? 


1 fO 


000001 


777 

Iff 




77M 

fro 




770 




7Rn 




7R1 

I O 1 




r Oc 




7R^ 

1 Oj 




f OH 




7AS 

r 03 




r OO 




7R7 

f Of 




7AA 

f OO 




7110 
f Ot 


1 nooofl 


7on 

f TU 


o/.oono 


701 


070000 


70? 

f TC 


010000 


70 X 

f Tr J 


00^000 


794 


002000 


79S 


001000 


796 


000400 


797 


0002C0 
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BASIC DEFINITIONS 



R3= 
R4= 
R5= 
R6= 
R7= 
SP= 
PC = 



X3 
X4 
X5 
X6 
17 
It 
17 



E 2 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



SEQ 0017 



;*PRI0PITY LEVEL DEFINITIONS 



PRO= 
PR1 = 
P92= 
PR3= 
PR4= 
PR 5= 
PR6= 
PR 7= 



0 
40 
100 
140 
200 
240 
300 
340 



PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



.♦"SUITCH REGISTER" SWITCH DEFINITIONS 

SU15= 100000 

SU14= 40000 

Syi3= 20000 

SW12= 10000 

SU11= 4000 

SU10= 2000 

SU09= 1000 

Sy08= 400 

SU07= 200 

SU06= 100 

Sy05= 40 

SU04= 20 

SU03= 10 

SW02= 4 

SU01= 2 

suoo= 1 

.EQUIV SU09,SU9 

.EOUIV SW08,SU8 

.EQUIV SU07.SU7 

.EQUIV SW06.SU6 

.EQUIV suos.sys 

.EQUIV SW04.SU4 

.EQUIV SU03,SU3 

.EQUIV SW02.Sy2 

.EQUIV SUOnSUl 

.EQUIV SUOO.SUO 

;*DATA BIT DEFINITIONS 

BIT 15= 100000 

BITU- 40000 

BIT13= 20000 

BIT 12= 10000 

BIT11= 4000 

BIT10= 2000 

BIT09= 1000 

BIT08= 400 

BIT07= 200 



(BITOO TO BIT15) 
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798 


000100 


799 


000040 


800 


000020 


801 


000010 


802 


000004 


803 


000002 


804 


000001 


805 




806 




807 




808 




809 




810 




811 




812 




813 




8U 




815 




816 




817 


000004 


818 


000010 


819 


000014 


820 


000014 


821 


000014 


822 


000020 


823 


000024 


82A 


000030 


825 


000034 


826 


000060 


827 


000064 


828 


000240 


829 




830 




831 




832 




833 




834 




835 




836 


005746 


837 


005726 


838 


010046 


839 


012600 


840 


024646 


841 


022626 


842 




843 




844 




845 
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BASIC DEFIMTIDNS 



f 2 



SEQ 0018 



B1T06= 
BIT05= 
BIT04= 
BIT03= 
BIT02= 
BIT01= 
BITOO= 
.EQUIV 
.EOUIV 
.EQUIV 
.EQUIV 
.^.QUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 



100 

40 

20 

10 

4 

2 

1 

BIT09,BIT9 
BIT08.BIT8 
B1T07.BIT7 
BIT06,BIT6 
BIT05.BIT5 
BIT04,BIT4 
BIT03,BIT5 
BIT02,BIT2 
BITOI.BITI 
BITOO.BITO 



.••BASIC "CPU" TRAP VECTOR 
ERRVEC= 4 
RESVEC= 10 
TB1TVEC=14 
TRTVEC= 14 
BPTVEC= 14 
10TVEC= 20 
PURVEC= 24 
E«TVEC= 30 
TRAPVEC=34 
TKVEC= 60 
TPVEC= 64 
PIROVEC=240 



.■INSTRUCTION DEFINITIONS 



ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLE6AI INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) ••SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) **ERROR*« 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



PUSH1SP=5746 

POP1SP=5726 

PUSHR0=10046 

POPR0= 12600 

PUSH2SP=24646 

P0P2SP=22626 

.EOUIV EHT.HLT 



.•DECREMENT PROCESSOR STACK 1 WORD 

.-INCREMENT PROCESSOR STACK 1 WORD 

.•SAVE RO ON STACK 

; RESTORE RO FROM STACK 

;OECREMENT STACK TWICE 

; INCREMENT STACK TWICE 

;6ASIC DEFINITION OF ERROR CALL 



CZKCt 


MACV11 


30A<1052) 
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OH t 
































Oj ■ 








AS? 
















854 








855 








856 




000000 

WW WW WW 




8S7 


ocoooo 

W WWVWW 


000000 

W W W w w 


000000 

WW WW WW 


858 








859 








860 








861 




000020 

W W W W w 




862 


000020 


004134 




863 


000022 

V V V W w 


000340 




864 


000024 


007126 




865 


000026 


000340 




866 


000030 

www ^ w 


006512 




867 

WW ' 


000032 


000340 




868 


000034 

WW WW v~ 


006414 




869 

OUT 


000036 

WWW •/ w 


000340 

www w 




870 








871 

W r 1 








872 








873 

Old/ 








874 




000040 




875 




000046 




876 


000046 


004070 




877 




000052 




878 


000052 


000000 




879 

W ■ ' 




000040 




880 








881 




0001 74 




882 


0001 74 


000000 




883 


0001 76 


000000 




884 








883 




000200 




886 


000200 


0001 37 


002402 


887 








888 








889 




001000 




890 


001000 


005200 


055103 


(2) 


001010 


046513 


030503 


(2) 








891 




177570 




892 




177570 
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TRAPCATCHER FOR UNEXPECTED INTERUPTS 



$£0 0019 



;TRAPCATCAER FOR ILLEGAL INTERRUPTS 
;THE STANDARD "TRAP CATCHER" IS PLACED 
.-BETWEEN ADDRESS 0 TO ADDRESS 776. 
;1T LOOKS LUE "PC*2 HALT". 



.=0 

.yORD 0,0 
.STANDARD INTERRUPT VECTORS 



.=20 



.SBTTL 



SSCOPE ; SCOPE LOOP HANDLER. 

PR7 ; SERVICE AT LEVEL 7. 

SPURDN ;POUER FAIL HANDLER 

PR7 .-SERVICE AT LEVEL 7 

(ERROR .-ERROR HANDLER 

PR7 .-SERVICE AT LEVEL 7 

STRAP .-GENERAL HANDLER DISPATCH SERVICE 

PR7 ; SERVICE AT LEVEL 7 

ACT11 HOOKS 



;HOOKS REQUIRED BY ACT11 
$SVPC=. 
.=46 
SENDAD 
.=52 

.WORD 0 
.=$SVPC 

.=174 
DISPREGrO 
SURE 6: 0 



.-SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF $ENDAD IN .$EOP 

;;2)SET L0C.52 TO ZERO 
;; RESTORE PC 



;SOFTUARE DISPLAY REGISTER 
.-SOFTWARE SWITCH REGISTER 



041513 
020061 



.=200 



.-1000 
HTITLE: 



DSWR 
DDISP 



JMP 



.ASCII 
.ASCIZ 



.START 



.-GO TO START OF PROGRAM 



<200><»2>/CZKCE/<200> 

/KMC11 DDCHP LINE UNIT TESTS/<200> 

177570 
177570 
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COMMON TAGS 










.SBTTL 


COMMON 


TAGS 














89 S 






0 9 






896 






;*THIS TABLE CONTAINS VARIO 


897 






:«USED IN THE PROGRAM. 


898 

WTO 








4 lAA 

.=1200 




899 




001200 






900 


001200 




ICMTAG: 






901 


001 200 


A A AA AA 

000000 




1 lAA A 

.WORD 


A 


902 


001202 


AAA 

000 


JTSTNM: 


a V T c 


A 
0 


903 


001203 


AAA 

000 


ScRFLG: 


DWTC 

.oYTc 


A 
U 


90A 


001 204 


A A A A A A 

ooonoo 


J ICNT : 


.WORD 


A 
U 


905 


001 206 


AAAAAA 

000000 


•LP ADR : 


.WORD 


A 
U 


906 


001210 


AAAAAA 

000000 


JLrcRK : 


1 lADfV 

.UuRP 


A 
0 


907 


001212 


AAAAAA 

000000 


# C A T T 1 

IcRTTL : 


.WORD 


A 
0 


908 


001214 


AAA 

000 


ft f TCMO . 

>ITcnB: 


DVTC 

.BYIt 


A 
U 


909 


001215 


AA4 

001 




DVTC 

.□Tic 


1 

) 


910 


001216 


A Ai ■ A AA 

000000 


ft C DDDr ■ 

»cRRrC : 


LJAD fV 


A 

u 


911 


001220 


AAAAAA 

000000 


SGDADR: 


• WORD 


A 
0 


912 


001222 


AAAAAA 

000000 


# DA AAA. 


UAD A 

.WORD 


A 


913 


001224 


AAAAAA 

000000 




1 lAD A 

.WORD 


A 
0 


914 


001226 


AAAAAA 

000000 


#n A A A T . 

SBDDAT : 


.WORD 


A 


915 


001230 


AAAAAA 

000000 




.WOKD 


A 
U 


916 


001232 


AAAAAA 

000000 




. WUND 


A 
U 


917 


101234 


AAA 

000 


ft Al IT AD • 


DVTC 

• oT It 


A 
U 


918 


001235 


AAA 

000 


ft t kIT AT • 

9INI AG : 


BVTC 

.BTlt 


A 
U 


919 

TIT 


001236 


AAAAAA 

000000 






Q 


920 


001240 


177570 


SWR: 


.WORD 


DSWR 


921 


001242 


4 f 7 C 7 A 

1 77570 


DISPLAY. 


.WORD 


DDISP 


922 


001244 


4 ^ ^ C ^ A 

177560 


CTrC • 
• 1 . 


1 r 1 jOw 




923 


001246 


1 7a5o? 




1 77'»A5 




924 


001250 


1 7a5oA 


CTDC • 


1 77^/\L 
1 f f jQH 




925 


001252 


4 7 7C^Z. 

1 77566 


CTDQ • 
• 1 rO . 






926 


001254 


AAA 

000 


vNULt • 


DV TP 
.OTIC 


A 
U 


927 


001255 


002 


cc 1 1 1 c • 


nvTP 

• D 1 1 C 


c 


928 


001256 


012 


CC 1 1 1 r • 


nvTP 

.OTIC 


1 c 


929 


001257 


000 


CTDC 1 • 


• DT 1 C 


n 


930 


001260 


AAAAAA 

000000 




unon 


0 


931 
932 


001262 


AAAAAA 

000000 


CDCfin • 
vKCUU • 


unon 


0 


933 


001264 


AAAAAA 

000000 


•KCO 1 • 


unon 


0 


934 


001266 


AAAAAA 

000000 


•KCUC ■ 


. WUnU 


A 
U 


935 


001270 


AAAAAA 

000000 


«Kcu J : 


unon 


A 
11 


936 


001272 


AAAAAA 

000000 


SREG4: 


.WORD 


u 


937 


001274 


AAAAAA 

000000 


SREG5: 


.WORD 


0 


938 


001276 


AAAAAA 

000000 


iTMPO* 


.WORD 


0 


939 


001 300 


AAAAAA 

000000 


STHPI : 


.WORD 


0 


940 


001302 


AAAAAA 

000000 


$THP2: 


.WORD 


0 


941 


001304 


AAAAAA 

000000 


$TMP3: 


.WORD 


0 


942 


001 306 


AAAAAA 

000000 


$THP4 : 


.WORD 


0 


945 


001310 


AAAAAA 

000000 


STIHES: 


0 


/?/ 


944 


001312 


077 


SQUES: 


.ASCII 


945 


001313 


015 


SCRLf : 


.ASCII 


<15> 


946 


001314 


UUUU 1 c 


$LF: 


.ASCIZ 


<12> 


947 
948 






.SBTTL 


APT MAILBOX-ETABLE 



COMMON STORAGE LOCATIONS 



;; START OF COMMON TAGS 

;; CONTAINS THE TEST NUMBER 

.-CONTAINS ERROR FLAG 

;:CONTAINS SUBTEST ITERATION COUNT 

;: CONTAINS SCOPE LOOP ADDRESS 

:: CONTAINS SCOPE RETURN FOR ERRORS 

: .-CONTAINS TOTAL ERRORS DETECTED 

;; CONTAINS ITEM CONTROL BYTE 

;; CONTAINS MAX. ERRORS PER TEST 

;;CONTAINS PC OF LAST ERROR INSTRUCTION 

;;CONTAINS ADDRESS OF 'GOOD' DATA 

;; CONTAINS ADDRESS OF 'BAD' DATA 

;; CONTAINS 'GOOD' DATA 

;;CONTAINS 'BAD' DATm 

;; RESERVED— NOT TO BE USED 

: .-AUTOMATIC MODE INDICATOR 
INTERRUPT MODE INDICATOR 

.-ADDRESS OF SWITCH REGISTER 
.-.-ADDRESS OF DISPLAY REGISTER 
;;TTY KBD STATUS 
;;TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 

;;TTY PRINTER BUFFER REG. ADDRESS 

;. -CONTAINS NULL CHARACTER FOR FILLS 

;;CONTAINS # OF FILLER CHARACTERS REQUIRED 

;; INSERT FILL CHARS. AFTER A "LINE FEED" 

;;"TERM1NAL AVAILABLE" FLAG (BIT<07>=0=YES) 

: .-CONTAINS THE ADDRESS FROM 

;. -WHICH (SREGO) WAS OBTAINED 

;; CONTAINS (($REGAD)*0) 

:; CONTAINS ((SREGAD)*2) 

-CONTAINS (($REGAD)+4) 

;; CONTAINS (($RE6AD)*6) 

;;CONTAINS ( (SREGAD) +10) 

:; CONTAINS (($REGAD)n2) 

;:USER DEFINED 

::USER DEFINED 

:;USER DEFINED 

:;USER DEFINED 

;;USER DEFINED 

::MAX. NUMBER OF ITERATIONS 

:: QUE ST ION MARK 

.-: CARRIAGE RETURN 

;:LINE FEED 
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08:24 PAGE 
APT NAILI 



949 
950 
951 
952 
955 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
100A 



001316 
001316 
001320 
001322 
001324 
001326 
001330 
001332 
001334 
001336 
001336 
001337 
001340 
001342 
001344 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

002 
000 
000000 
000000 
000000 



001346 
001347 



000 
000 



001350 000000 



001352 
001353 
001354 
001356 
001357 
001360 
001362 
001363 
001364 
001366 
001370 
001372 
001374 
001376 
001400 
001402 
001404 
001406 
001410 
001412 
OOUU 
0OU16 
00U20 
0OU22 



000 
000 
000000 
000 
000 
000000 
000 
000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



.EVEN 

SHAIL: 

$HSGTY 

(FATAL 

$TESTN 

$PASS: 

»OEVCT: 

$UNIT: 

SnSGAD: 

f^SGLG: 

SETABLE 

SENV: 

$ENvn: 

SSUREG: 

$USUR: 

SCPUOP: 
• * 

;• 
» 



SHAMS 1 
SMTYPl 

9 

$MADR1 : 

$MAnS2 
WTYP2 
$nADR2 
$nAHS3 

$nTYP3 

$MADR3 

snAns4 

$nTYP4 
$nADR4 
tVECTI 
$VECT2 
$8ASE 

$DEvn 

SCDU1 
$CDW2 
$DDUO 
$DDU1 
$DDU2 
SDDU3 
SDDU4 
$DDU5 

$ooy6 

SDDU7 
$DDU8 



AMSGTY 

Af ATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AHSGAD 

AHSGLG 

AENV 

AENVn 

ASUREG 

AUSUR 

ACPUOP 



AMAMSI 
AHTYP1 



AHADRI 

AnAns2 

AHTYP2 
AnADR2 

AnAns3 

AHTYP3 

AnADR3 

AHAHSA 

AHTYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVn 

ACDU1 

ACDU2 

ADOUO 

AD0U1 

ADDU2 

ADDU3 

ADDy4 

ADDUS 

AD0U6 

ADDU7 

AD0U8 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIRONMENT TABLE 
ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
CPU TYPE. OPT IONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 . 1 1 /05=02 . 1 1 /20=03 . 1 1 /40=04 . 1 1 /45=0S 
11/70=06. PDQ=07. 0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
::HIGH ADDRESS, M.S. BYTE 
;;HEH. TYPE.BLK#1 
MEM. TYPE BYTE ~ (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIP0LAR=002 
500 NSEC M0S=003 
HIGH ADDRESS, BLK«1 

MEM. LAST ADDR.=3 BYTES. THIS WORD AND LOU OF "TYPE" 
HIGH ADDRESS.M.S. BYTE 
HEM. TYPE ,8LK#2 
HEM. LAST ADDRESS. BLK#2 
HIGH ADDRESS. M.S. BYTE 
HEM. TYPE. BLK#3 
MEM. LAST ADDRESS. BLK«3 
HIGH ADDRESS.M.S. BYTE 
HEM. TYPE ,BLK#4 
MEM. LAST ADDRESS. BLK#4 
INTERRUPT VECTORfl.BUS PRI0RITY#1 
INTERRUPT VECT0R#2BUS PRIORI TY#2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE HAP 

CONTROLLER DESCRIPTION W0RD/V1 
CONTROLLER DESCRIPTION U0RD#2 
DEVICE DESCRIPTOR UORDfO 
DEVICE DESCRIPTOR UORDfl 
DEVICE DESCRIPTOR U0RD#2 
DEVICE DESCRIPTOR U0RD«3 
DEVICE DESCRIPTOR U0RD«4 
DEVICE DESCRIPTOR UORD#S 
DEVICE DESCRIPTOR U0RD»6 
DEVICE DESCRIPTOR U0RD«7 
DEVICE DESCRIPTOR U0RD«8 
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APT NAILBOX-E TABLE 



1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1015 

10U 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 



001424 
001426 
001430 
001432 
001434 
001436 
001440 



001442 



001442 
00U44 



001446 
001450 
001452 
001454 
001456 
001460 
001462 
001464 
001466 
001470 
001472 
001474 
001476 
001500 

001502 
001504 



001506 

001510 
001511 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 



000 
001510 
000 
000 



$D0U9: 
S0DU10 
SDDU11 
SDDU12 
SDDU13 
SDDUU 
SDDU15 



SETEND: 



.WORD 
.WORD 
.WORD 
.WORD 
.UORO 
.WORD 
.WORD 



ADDU9 

AD0U10 

ADDU11 

ADDU12 

AD0U13 

AODyU 

ADDU15 



J 2 



; .DEVICE 
;;0EVICE 
;;DEVICE 
;;DEVICE 
;:DEV1CE 
;;DEVICE 
;:DEVICE 



PROGRAM CONTROL PARAMETERS 



NEXT: 
LOCK: 



.WORD 
.yORD 



0 
0 



PROGRAM VARIABLES 



000000 


STRTSU: 


.UORD 


0 


000000 


STAT: 


.WORD 


0 


000000 


CLKX: 


.WORD 


0 


000000 


MASKX: 


.WORD 


0 


000000 


SAVSP: 


.WORD 


0 


000000 


SAVPC : 


.WORD 


0 


000000 


ZERO: 


.WORD 


0 


000001 


ONE: 


.WORD 


1 


000000 


MEMLIM: 


.WORD 


0 


000001 


KMACTV: 


.BLKU 


1 


000001 


KMNUM: 


.BLKW 


1 


000001 


SAVACT: 


.BLKU 


1 


000001 


SAVNUN: 


.BLKW 


1 


000000 


RUN: 


.WORD 


0 






.EVEN 




002072 


CREAM: 


.WORD 


KM 


002276 


MILK: 


.WORD 


CN 



PROGRAM CONTROL FLAGS 

"INIFLG: .BYTE 0 

.EVEN 

L0KFL6: .BYTE 0 

QV.FLG: .BYTE 0 

.EVEN 



SEO 0022 



DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 



U0RD#9 

UORDflO 

U0RD#11 

U0RD«12 

U0RD#13 

U0RD«14 

U0RD#15 



ADDRSS OF NEXT TEST TO BE EXECUTED 
ADDRESS FOR LOCK CURRENT DATA 



SWITCHES AT START OF PROGRAM 
KM STATUS WORD STORAGE 



STACK POINTER STORAGE 
PROGRAM COUNTER STORAGE 



HIGHEST LOCATION FOR NPR'S 
KMC11 SELECTED ACTIVE 
OCTAL NUMBER OF KMCII'S 
ORIGINAL ACTIVE DEVICES. 
WORKABLE NUMBER. 
POINTER TO RUNNING DEVICES 

TABLE POINTER 
TABLE POINTER 



PROGRAM INITIALIZING FLAG 



LOCK ON CURRENT TEST FLAG 
QUICK VERIFY FLAG 

ON FIRST PASS OF EACH KMC11 ITERATIONS WILL BE SUPPRES 
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1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 

1067 001512 000000 

1068 001514 000000 

1069 001516 000000 

1070 001520 032062 

1071 001522 033225 

1072 001524 033542 

1073 001526 032120 

1074 001530 033225 

1075 001532 033542 

1076 001534 032163 

1077 001536 033225 

1078 001540 033542 

1079 001542 032227 

1080 001544 000000 

1081 001546 000000 

1082 001550 032271 

1083 001552 033225 

1084 00155" 033542 

1085 001556 032271 

1086 001560 033263 

1087 001562 033560 

1088 001564 032321 

1089 001566 033204 

1090 001570 033530 

1091 001572 032340 

1092 001574 033204 

1093 001576 033530 

1094 001600 032365 

1095 001602 033204 

1096 001604 033530 

1097 001606 032550 

1098 001610 033361 

1099 001612 033604 

1100 001614 032577 

1101 001616 033361 

1102 001620 033604 

1103 001622 032550 

1104 001624 033321 

1105 001626 033572 



001512 



K 2 

08:24 PAGE 24 

ERROR POINTER TABLE 

.SBTTL ERROR POINTER TABLE 

*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUHBER FOUND IN 
•LOCATION SITEHB. THIS NUHBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
*N0TE1: IF tlTEHB IS 0 THE ONLY PERTINENT DATA IS (SERRPO. 

*N0TE2: EACH ITEH IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



SEQ 0023 



SERRTB: 
.EVEN 



EM 
DH 
DT 
DF 



DF 
0 
0 
0 

EMI 

DH2 

0T2 

EM2 

DH2 

DT2 

EM3 

DH2 

DT2 

EM4 

0 

0 

EM5 

DH2 

DT2 

EM5 

DH3 

DT3 

EM6 

DH1 

DTI 

EM7 

DHI 

DTI 

EM10 

DH1 

DTI 

EMU 

DH5 

DT5 

EM12 

DH5 

DT5 

EM11 

DH4 

DT4 



POINTS TO THE ERROR (MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



:; DOES NOT APPLY IN THIS DIAGNOSTIC. 



ERROR 1 
ERROR 2 
ERROR 3 
ERROR 4 
ERROR 5 
ERROR 6 
ERROR 7 
ERROR 10 
ERROR 11 
ERROR 12 
ERROR 13 
ERROR 14 



CZKCt 
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CZKCE.Pll 08 


-JUL-80 08:24 


ERROR POINTER 


1106 


001630 


032623 


Em 3 


1107 


001632 


000000 


0 


1108 


001634 


000000 


0 


1109 


001636 


032550 


EHII 


1110 


AA4 £. i f\ 

001640 


033361 


DH5 


1111 


001642 


033622 


DT6 


1112 


AA4 i 4 i 

001644 


032577 


EMI 2 


1113 


AA4 i A. 

001 646 


033361 


DH5 


4 4 4 1 

1 IH 


001650 


033622 


DT6 


4 4 4 C 

1115 


AA4 ^ O 

001652 


032550 


EHII 


4 4 i ^ 

mo 


AA1 xcy 
001654 


033413 


DH6 


4 1 4 ir 
1117 


AA4 d.Cd. 

001656 


033640 


DT7 


4 4 4 A 

1118 


AA4 1.x A 

001660 


032550 


EH11 


4 4 4 A 

1119 


AA4 X.X.O 

001662 


033413 


DH6 


4 4 

1120 


AA4 xxy 

001664 


033662 


DT10 


4 4 ^4 

1121 


AA4 

001666 


032577 


EMI 2 


1122 


AA1 X.7A 

001 orO 


033413 


DH6 


1123 


AA1 X.70 

001672 


033640 


DT7 


1124 


AA4 X.7y 

001674 


032577 


Eni2 


1125 


0016rO 


033413 


DH6 


1126 


AA4 7AA 
001 700 


033662 


DT10 


4 1 07 

1127 


AA4 7AO 
001702 


032663 


EMU 


1126 


AA4 7Ay 

001 704 


000000 


0 


4 4 ^A 


AA1 7AX. 

001 706 


000000 


0 


4 4 TA 

1130 


AA4 74 A 


032733 


EH15 


1131 


AA4 74 ^ 

001 712 


033204 


DH1 


1 1 vo 

1132 


AA1 71/ 

001 7H 


033530 


0T1 


1133 


A A 4 7 4^ 

001716 


032754 


EM16 


4 1 Ty 

11 5*1 


AA4 70n 

001 icU 


033263 


DH3 


1135 


001 r££ 


033704 


0T11 


1136 


AA1 voy 
001 724 


032577 


EMI 2 


4 4 T7 

1137 


AA4 70X 

001 rcb 


033204 


DHI 


1 4 Tfl 

1138 


AAl 7YA 

001 r30 


033716 


DT12 


4 4 TO 

n 3t 


AA4 7T0 

001 732 


032770 


EMI 7 


4 4 y A 
1 1*0 


AA4 7T/. 
001 734 


000000 


0 


4 1 A 1 


AAl 

001 7 30 


000000 


0 


4 1/0 


AAl 7y A 

001 r40 


033034 


EM20 


1 1 y T 
MHJ 


AAl 71.0 

001 f 4t 


033204 


DHI 


1 1 LL 
1 1 "IH 


AAl 7/.y. 
UUl f <!•» 


033530 


DTI 


1 1 /.C 


001 746 


033055 


EM21 


1 1ZiL 

11 hO 


nni 7cn 
Oul 7>U 


033461 


DH7 




001 f >6 


000000 


0 


11 4o 


001 f 34 


033055 


EM21 


1 i^y 


AAl 7CA 

001 730 


033263 


DH3 


1 1 

1 1 >o 


AAl 7ylA 

001 700 


033560 


DT3 


1 4 C4 

1151 


AAl 7X.0 

001 762 


033072 


EM22 


4 1 CO 

1152 


Arti 7AZ. 

001 704 


033504 


DH10 


4 1 CT 

1 1 53 


AA4 7AA 
001 700 


000000 


0 


1 1 cz 
1 1 >H 


AAl 77A 

001 7 70 


033115 


EM23 


4 4 CC 

1155 


AAl 770 

001 77t 


033225 


DH2 


1 1 


OA1774 


033542 


DT2 


1157 


001776 


033137 


EM24 


1158 


002000 


000000 


0 


1159 


002002 


000000 


0 


1160 


002004 


033162 


EM25 


1161 


002006 


OOOOOC 


0 



L 2 

ERROR 15 
ERROR 16 
ERROR 17 
ERROR 20 
ERROR 21 
ERROR 22 
ERROR 23 
ERROR 24 
ERROR 25 
ERROR 16 
ERROR 27 
ERROR 30 
ERROR 31 
ERROR 32 
ERROR 33 
ERROR 34 
ERROR 35 
ERROR 36 
ERROR 37 



SEO 0024 
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1162 

1163 

n6A 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 



002010 
002012 
002014 
002016 
002020 
002022 
002024 
002026 
002030 
002032 



000024 
000044 



002034 
002034 
002036 
002040 
002042 
002044 
002046 



000000 
032321 
033225 
033542 
032271 
033361 
033604 
032623 
033204 
033530 
002034 



002034 
000024 
000200 
000044 
002034 
002034 



000000 
001316 
000132 
000137 
000137 
000052 
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ERROR POINTER TABLE 

0 

En6 
DH2 
DT2 
EH5 
DH5 
DT5 
Em3 
DHl 
DTI 



n 2 

ERROR 40 
ERROR 41 
ERROR 42 



SEO 0025 



.=2034 
.SBTTL 



APT PARAMETER BLOCK 



;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

***************************************************************** 

.$X=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET '»OUER FAIL TO POINT TO START OF PROGRAM 
200 ;:FOR APT START UP 
.=44 ;;P0INT TO APT INDIRECT ADDRESS PNTR. 
SAPTHOR ;; POINT TO APT HEADER BLOCK 
.=.SX ;;RESET LOCATION COUNTER 
■ ♦•♦♦♦**««♦♦**•♦♦**♦*♦**♦***♦♦**♦♦♦♦♦♦♦♦*♦♦*♦*♦***♦•*♦**♦♦***•♦* 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD: 

SHIBTS: .WORD 

SMBADR: .WORD 

STSTH: .WORD 

$PASTH: .WORD 

SUNITM: .WORD 
.WORD 



0 

SMAIL 
90. 
95. 
95. 



:TW0 HIGH BITS OF 18 BIT MAILBOX ADDR. 
;ADDRESS OF APT MAILBOX (BITS 0-15) 
:RUN TIM OF LONGEST TEST 

:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
.-ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 



UNIT 



SETEND-$MAIL/2 ;;LENGTH MA I LBOX-E TABLE (WORDS) 



N 2 
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APT PARAMETER 


1196 










1197 






; KMC 11 


CONTROL 


1198 






• 




1199 










1200 


002050 


000000 


STATl : 


0 


1201 


002052 


000000 


STAT2: 


0 


1202 


002054 


000000 


STAT3: 


0 


1203 










1204 






^4a/> 4 4 

;KMC11 


VECTOR 


1205 










1206 










1207 


AA A A f d 

002056 


000000 


KiRVEC : 


A 

0 


1208 


002060 


000000 


KHRLVL : 


A 

0 


1209 


002062 


000000 


KHTVEC : 


A 

0 


1210 


AAAA^ / 

002064 


000000 


KHTLVL : 


A 

0 


1211 


002066 


000000 


KHCSR: 


0 


1212 


AAt A^ A 

002070 


000000 


KMCSRH: 


0 


1213 


AA A A^l 

002072 


000000 


KMCTL: 


0 


12'! 4 


AA A A^ i 

002074 


000000 


KMP04: 


0 


1215 


0O2076 


000000 


KMP06: 


0 


4^4^ 

1216 










4 '\ 4 ^ 

1217 






;TEHP STORAGE 


1218 










4 ^ 4 n 

1219 










1220 






;TEHP: 


0 


1221 






;.=.*40 


1222 










1223 






; KMC 11 


STATUS 


1224 










1225 










1226 




002100 


.=2100 




1227 


002100 




KM.MAP: 




4 ^ ^ B 

1228 


AA1 4 AA 

002100 


000001 


KHCROO: 


.BLKU 


1229 


AA 1 4 A1 

002102 


000001 


KMS100: 


.BLKU 


1230 


AA14 Ai 

002104 


000001 


KMS200: 


.BLKU 


1231 


002106 


000001 


KMS300: 


.BLKU 


1232 










4 1 V T 

1233 


AAA 4 4 A 

002110 


000001 


KMCR01 : 


.BLKU 


1234 


AA1 4 4 1 

002112 


000001 


KMS101 : 


.BLKU 


1235 


AA14 4 / 

0021 14 


000001 


Kns20l : 


.BLKU 


1236 


002116 


000001 


KMS301 : 


.BLKU 


1237 










1238 


AAA 4 A A 

002120 


000001 


KMCR02' 


.BLKU 


4 1VA 

1239 


AAA4 AA 

002122 


000001 


KMS102 


.BLKU 


4 U A 

1240 


AA14 1i 

002124 


000001 


KMS202 


.BLKU 


4 1 # 4 

1241 


002126 


000001 


KnS302 


.BLKU 


4 H 1 

1242 






KMCR03 




4 1 / V 

1243 


AAA4 VA 

0021 30 


000001 


.BLKU 


4 U J 

1244 


AA1 4 V 1 

002132 


000001 


KMSIOS 


.BLKU 


4 A 1 F 

1245 


AAA 4 Vi 

002134 


000001 


KMS203 


.BLKU 


1 9i.iL 


UOcl 30 


000001 


KMS303 


.BLKU 


1247 








1248 


002140 


000001 


KHCR04 


- .BLKU 


1249 


002142 


000001 


KMS104 


• .BLKU 


1250 


002144 


000001 


KMS204 


: .BLKU 


1251 


002146 


000001 


KMS304 


: .BLKU 



SEO 0026 



POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 



TO KMC11 RECEIVER INTERRUPT VECTOR 

TO KHC11 RECEIVER INTERRUPT SERVICE PS 

TO KMC11 TRANSMITTER INTERRUPT VECTOR 

TO KMC11 TRANSMITTER INTERRUPT SERVICE PS 

TO KMC11 CONTROL STATUS REGISTER 

TO KMC11 CONTROL STATUS REGISTER HIGH BYTE. 

TO KMCII CONTOL OUT REGISTER 

TO KMC11 PORT REGISTERCSEL 4) 

TO KMC11 PORT REGISTER(SEL 6) 



.•CONTROL STATUS REGISTER FOR KMC11 NUMBER 00 
; VECTOR FOR KMC11 NUMBER 00 
;DDCMP LINE# FOR KMCll NUMBER 00 
:3RD STATUS UORO 

; CONTROL STATUS REGISTER FOR KMCll NUMBER 01 
; VECTOR FOR KMCll NUMBER 01 
:DDCMP LINE# FOR KMCll NUMBER 01 
;3RD STATUS UORD 

.•CONTROL STATUS REGISTER FOR KMCll NUMBER 02 
;VECTOR FOR KMCll NUMBER 02 
.•D^'IP LINE* FOR KMCll NUMBER 02 
;3rtD STATUS UORD 

:CONTROL STATUS REGISTER FOR KMCll NUMBER 03 
; VECTOR FOR KMCll NUMBER 03 
;DDCMP LINE* FOR KMCll NUMBER 03 
;3RD STATUS UORD 

.•CONTROL STATUS REGISTER FOR KMCll NUMBER 04 
.VECTOR FOR KMCll NUMBER 04 
;DDCMP LINE# FOR KMCll NUMBER 04 
:3RD STATUS UORD 



CZKCE 


HACYII 


30A(1052) 08-JUI-80 


08:24 PAGE 28 


CZKCE-HI 08 


~JUL*oU Uo:c* 




1252 










1253 


002150 


000001 


KHCR05' 


blku 


1254 


002152 


000001 


KffS105 


blku 


1255 


002154 


000001 


KNS205 


BLKU 


1256 


002156 

Wb ■ 


000001 


rns305 


BLKU 


1257 










1258 


002160 


000001 


lcnCR06 


.BLKU 


1259 


002162 


000001 


KnS106 


.BLKU 


1260 


002164 


000001 


KNS206 


.BLKU 


1261 


002166 


000001 


KnS306 


.BLKU 


1262 










126S 


002170 


000001 


K*1CR07 


.BLKU 


1264 


002172 


000001 


K*fS107 


.BLKU 


1265 


002174 


000001 


KnS207 


.BLKU 


1266 


002176 


000001 


KnS307 


.BLKU 


1267 










1268 


002200 


000001 


KMCRIO 


.BLKU 


1269 


002202 


000001 


KHSIIO 


.BLKU 


1270 


002204 


000001 


Kns2io 


.BLKU 


1271 


002206 


000001 


Kns3io 


.BLKU 


1272 










1273 


002210 


000001 


KHCRll 


.BLKU 


1274 


002212 


000001 


KHSm 


.BLKU 


1275 


002214 


000001 


Kns2ii 


.BLKU 


1276 


002216 


000001 


KnS311 


.BLKU 


1277 










1278 


002220 


000001 


KnCR12 


.BLKU 


1279 


002222 


000001 


Knsii2 


.BLKU 


1280 


002224 


000001 


KnS212 


.BLKU 


1281 


002226 


000001 


KnS312 


.BLKU 


1282 










1283 


002230 


000001 


KnCR13. 


.BLKU 


1284 


002232 


000001 


KnS113 


.BLKU 


1285 


002234 


000001 


KnS213. 


.BLKU 


1286 


002236 


000001 


KnS313. 


.BLKU 


1287 










1288 


002240 


000001 


KHCRU 


.BLKU 


1289 


002242 


000001 


Knsiu 


.BLKU 


1290 


002244 


000001 


KnS214 


.BLKU 


1291 


002246 


000001 


KnS314 


.BLKU 


1292 










1293 


002250 


000001 


KnCR15 


.BLKU 


1294 


002252 


000001 


KHSIIS 


.BLKU 


1295 


002254 


000001 


KnS215 


.BLKU 


1296 


002256 


000001 


Kns3is 


.BLKU 


1297 










1298 


002260 


OOOuu ) 


KMCR16 


.BLKU 


1299 


002262 


000001 


Knsii6 


■ .BLKU 


1300 


002264 


000001 


KMS216 


. .BLKU 


1301 


002266 


000001 


Kns316 


: .BLKU 


1302 










1303 


002270 


000001 


KHCR17 


: .BLKU 


1304 


002272 


000001 


KHS117 


: .BLKU 


1305 


002274 


000001 


KnS217 


: .BLKU 


1306 


002276 


000001 


KnS317 


: .BLKU 


1307 











B 3 



SEO 0027 



CONTROL STATUS REGISTER fOR KMCH NUH6ER 05 
VECTOR FOR KMCll NUWER 05 
DDCMP LINE« FOR KMCll NUMBER 05 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMCll NUMBER 06 
VECTOR FOR KMCll NUMBER 06 
DDCMP LINE« FOR KMCll NUMBER 06 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMCll NUMBER 07 
VECTOR FOR KMC11 NUMBER 07 
DDCMP LINE« FOR KMCll NUMBER 07 
3RD STATUS UORD 

.•CONTROL STATUS REGISTER FOR KMC11 NUMBER 10 
.•VECTOR FOR KMCll NUMBER 10 
:DDCMP LINE« FOR KMCll NUMBER 10 
;3RD STATUS UORD 

;CONTROL STATUS REGISTER FOR KMC11 NUMBER 11 
.•VECTOR FOR KMCll NUMBER 11 
;DDCMP LINE# FOR KMCll NUMBER 11 
:3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC 1 NUMBER 12 
VECTOR FOR KMCll NUMBER 12 
DDCMP LJNE# FOR KMC11 NUMBER 12 
3RD STATUS UORD 



CONTROL STATUS REGISTER FOR KMCll 
VECTOR FOR KMCll NUMBER 13 
DDCMP LINE* FOR KMC 11 NUMBER 13 
3RD STATUS UORD 



NUMBER 15 



CONTROL STATUS REGISTER FOR KMCll NUMBER 14 
VECTOR FOR KMCll NUMBER 14 
DDCMP LINE# FOR KMC11 NUMBER 14 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMCll NUMBER 15 
VECTOR FOR KMC11 NUMBER 15 
DDCMP LINE/r FOR KMC11 NUMBER 15 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMCll NUMBER 16 
VECTOR FOR KMC11 NUMBER 16 
DDCMP LINE# FOR KMCll NUMBER 16 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMCll NUMBER 17 
VECTOR FOR KMCll NUMBER 17 
DDCMP LINE# FOR KMCll NUMBER 17 
5RD STATUS UORD 
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CZKCE.P11 08-JUL-80 08:24 APT PARAMETER BLOCK SEO 0028 

1308 002300 000000 KM. END: 000000 



CZICCE 


MACY11 


30A(1032) 08-JUL-80 


08:24 PAGE 3 


CZKCE.PII 08 


-JUL-80 08:24 


APT PARAHE 


1 509 








1 31 U 






;ICHC11 PAS 


1111 






0 


1 T1 0 

1 51 c 








1 11 X 

1313 


nn5in5 
UUc3Uc 




CNT.HAP: 


1 11 /. 
1 3I*« 


UUc3Uc 


000000 


PACTOO: 0 


1 11 c 


UUcjUh 


000000 


ERCTOO: 0 


1 11i^ 
1 3 lO 








1 11 7 

1 3 1 » 


UUc 3wO 


000000 


PACT01: 0 


1 11 B 

1310 


005110 
Uwc3 Iv 


000000 


ERCT01: 0 


1 110 

1 3 It 








1 150 


005X1 5 
UwC J 1 C 


000000 


F^CT02: 0 


1 151 
1 3c 1 


00511 ^ 
UUc 3 1 H 


000000 


ERCT02: 0 


1 T55 








1 151 
1 3C3 


00511 A 
UUc3 lO 


000000 


PACT03: 0 


1 XOL 
1 3cH 


0O5150 


000000 


ERCT03: 0 


1 15^ 
1 3c5 








1 15A 
1 3cO 


005155 
UUc3cc 


000000 


PACT04: 0 


1 157 
1 3c ' 


00515^ 
UUc3c*i 


000000 


ERCT04: 0 


1 

1 jCO 








1 X50 

1 3CT 


005X5A 
vUc 3cO 


000000 


PACT05: 0 


1 110 


005XX0 


000000 


ERCT05: 0 


1 1ll 

1 33 1 








1 115 

1 33c 


0051X5 
UUc 33c 


000000 


PACT06: 0 


1 1ll 

1 333 


005X1/. 
UUc33h 


000000 


ERCT06: 0 


1 XXL 
1 33h 








1 XT^ 

1 335 


00511A 
UUc330 


000000 


PACT07: 0 


1 11A 

1 330 


0051/.0 
UUc 3«»U 


000000 


ERCT07: 0 


1 XX7 








1 xxn 


005X^7 
UUC JHC 


000000 


PACT10: 0 


1 xxa 


007 X^^ 

UUC J*»«» 


000000 


ERCTIO: 0 


1 ^^0 








1 1 


UUC JHO 


000000 


PACT11: 0 


1 XL^ 


007X50 


000000 


ERCT11 : 0 


^XLX 








1 XLL 


007XS7 


000000 


PACT12: 0 


1 XL^ 


005X5^ 

UUC J 


000000 


ERCT12: 0 


1 XLA 








1 XL7 


007XSA 


000000 


PACT13: 0 


1 JHO 


007X^0 

UUC JOU 


000000 


ERCn3: 0 


1 "KLQ 








1 


007X^\7 


000000 


PACT14: 0 


1 x^^ 


007 X^^ 

UUC JOH 


000000 


ERCT14: 0 










1 X^X 

1 J J J 


007 XAA 

UUC jOO 


000000 


PACT1S: 0 


1 

1 JJH 


005X70 


000000 


ERCT15: 0 










1 356 


002372 


000000 


PACT16: 0 


1357 


002374 


000000 


ERCT16: 0 


1358 








1359 


002376 


000000 


PACT17: 0 


1360 


002400 


000000 


ERCT17: 0 


1361 









D 3 

SEO 0029 

ERROR COUNT TABLE 



PASS COUNT FOR KMC11 NUMBER 00 
ERROR COUNT FOR KMC11 NUMBER 00 

PASS COUNT FOR KMC 11 NUMBER 01 
ERROR COUNT FOR KMC11 NUMBER 01 

PASS COUNT FOR KMC11 NUMBER 0? 
ERROR COUNT FOR KMC11 NUMBER 02 

PASS COUNT FOR KMC11 NUMBER 03 
ERROR COUNT FOR KMC11 NUMBER 03 

PASS COUNT FOR KMC11 NUMBER 04 
ERROR COUNT FOR KMC11 NUMBER 04 

PASS COUNT FOR KMC 11 NUMBER 05 
ERROR COUNT FOR KMC11 NUMBER 05 

PASS COUNT FOR KMC11 NUMBER 06 
ERROR COUNT FOR KMC11 NUMBER 06 

PASS CtUNT FOR KMC11 NUMBER 07 
ERROR COUNT FOR KMC11 NUMBER 07 

PASS COUNT FOR KMC11 NUMBER 10 
ERROR COUNT FOR KMC11 NUMBER 10 

PASS COUNT FOR KMC11 NUMBER 11 
ERROR COUNT FOR KMC11 NUMBER 11 

PASS COUNT FOR KMC11 NUMBER 12 
ERROR COUNT FOR KMC11 NUMBER 12 

PASS COUNT FOR KMC 11 NUMBER 13 
ERROR COUNT FOR KMC11 NUMBER 13 

iPASS COUNT FOR KMC11 NUMBER 14 
ERROR COUNT FOR KMC11 NUMBER 14 

iPASS COUNT FOR KMCll NUMBER 15 
; ERROR COUNT FOR KMC11 NUMBER 15 

:PASS COUNT FOR KMC 11 NUMBER 16 
; ERROR COUNT FOR KMC 11 NUMBER 16 

;PASS COUNT FOR KMC 11 NUMBER 17 
; ERROR COUNT FOR KMC 11 NUMBER 17 



CZKCE HACtn 30A(10)2) 08-JUL-80 08:2A PAGE 31 
(ZKCt.PU 08-JUL-80 08:24 APT PARAMETER BLOCK 

1362 
1363 
1364 
1365 
1366 
1367 



E 3 



SEQ 0030 



FORMAT OF STATUS TABLE 



15 U 13 12 11 10 09 08 07 06 05 04 03 02 01 00 



I I I I I I I I 
1 C 0 N T R 0 L 
1 I I I I I I I 



I I I I I I I I I 
R E G I S T E R I 
I I I I I I I I 1 



I I I I I I I I I 
I*I»|tltl*I.I.I. 

I I I I 1 I I I 1 



I I I I I I I I 
V E C T 0 R • I 
1 I I 1 I I I I 



I I I I 

I • B n 

I I I I 



I I I 1 I I I I I I I I I 

ADD*1*LINE 9*1 
I I I I I I I I I I I I I 



CSR 



STAT1 



STAT2 



I I 
I • I 
I I 



I I 
I • I 
I I 



STAT3 



DEFINITION OF FORMAT 



CSR: CONTAINS KHC11 CSR ADDRESS 

STAT1: BITS 00-08 IS KHC11 VECTOR ADDRESS 

BITU=1 ???? TURNAROUND CONNECTOR IS ON 

BITUsO NO TURNAROUND CONNECTOR 

BIT13=0 LINE UNIT IS AN N8201 

BIT13=1 LINE UNIT IS AN n8202 

BIT12=1 NO LINE UNIT 

BITS 09-11 IS KNC11 BR PRIORITY LEVEL 

STAT2: LOU BYTE IS SWITCH PACfl (DDCNP LINE NUMBER) 
HIGH BYTE IS SUITCH PAC#2 (BH873 BOOT ADD) 

STAT3: BITO^I DO FREE RUNNING TESTS ON KMC 

(MUST BE SET TO A ONE MANUALLY [PROGRAMS G AND H ONLY]) 

BIT2=0 DHC11-DA (RS232C) 
BIT2=1 DMC11-FA (V.35) 



CZKCE HAttll 50A(10>2) 08-JUL-80 08:24 PAGE 52 ' ' 

CZKCE.Pll 08-JUL-80 08:24 APT PARAMETER BLOCK SEO 0031 
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SEQ 0032 



U19 

U20 

U21 

U22 

U23 

U24 

U25 

U26 

U27 

U28 

U29 

U30 

U31 

U32 

U33 

U34 

U35 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 



.-PROGRAH INITIALIZATION 

;L0CK OUT INTERRUPTS 

;S£T UP PROCESSOR STACK 

;S£T UP POWER FAIL VECTOR 

; CLEAR PROGRAM CONTROL FLAGS AND COUNTS 

;TYPE TITLE MESSAGE 



002402 


012737 


000340 


177776 


.START: 


MOV 


#340. PS ; 


LOCK OUT INTERRUPTS 


002410 


012706 


001200 






MOV 


fSTACK.SP ; 


SET UP STACK 


002414 


012737 


0071 26 


000024 




MOV 


«SPURDN,a#24 


SET UP POWER FAIL VECTOR 


002422 


013737 


001472 


001476 




MOV 


KMNUM,SAVNUH 


SAVE NUMBER OF DEVICES IN SYSTEM. 


002430 


005037 


011544 






CLR 


SUFLG ; 


CLEAR SOFT TYPEOUT FLAG 


002434 


105037 


001203 






CLRB 


SERFLG 


CLEAR ERROR FLAG 


002440 


105037 


001511 






CLRB 


QV.FL6 


ZERO QUICK VERIFY FLAG 


002444 


012737 


002070 


001502 




MOV 


#KH.MAP-10, CREAM, 


GET MAP POINTER. 


002452 


012737 


002276 


001504 




MOV 


#CNT.MAP-4,HILK , 


GET PASS COUNT MAP POINTER 


002460 


012737 


100000 


001500 




MOV 


«BIT15,RUN 


POINT POINTER TO FIRST DEVICE. 


002466 


012700 


002302 






MOV 


#CNT.MAP,RO 


PASS COUNT POINTER TO RO 


002472 


005020 






23S: 


CLR 


(RO)* 


CLEAR TABLE 


002474 


0..2700 


002402 






CMP 


#CNT.MAP*100,R0 


DONE YET? 


002500 


001 374 








BNE 


23S 


KEEP GOING 


002502 


005037 


001216 






CLR 


$ERRPC 


CLEAR LAST ERROR POINTER 


002506 


012737 


000001 


001202 




MGV 


#1 ,$TSTNH 


SET UP FOR TEST 1 


002514 


012737 


002402 


001206 
t 




MOV 


f. START, $LPADR 


SET UP FOR POWER FAIL BEFORE 
•TESTING STARTS 


002522 


132737 


000001 


001336 




61 TB 


#1 ,$ENV 


- IS IT RUNNING UNDER APT? 


002530 


001404 








BEQ 


3S 


IF NOT CHECK FOR TYPE OF SWITCH REGISTER 


002532 


013737 


001340 


000176 




MOV 


SSUREG.SUREG 


LOAD SOFTWARE SWITCH REG. 


002540 


000423 








BR 


6$*2 


; GO SET UP SOFTWARE SWITCH REG. 


002542 


01 3746 


A A A A A ^ 

000006 




3S: 


MOV 


a#6,-(SP) 


;SAVE CURRENT VECTORS 


A A fid 

002546 


A4 / ^ 

013746 


A A AAA / 

000004 






MOV 


AM/ / c fl % 

a#4,-(SP) 




002552 


A 4 A ^ V ^ 

012737 


A A A ^ A ^ 

002606 


A A A A A / 

000004 




MOV 


mL ^ AM/ 

#6>,i#4 


. C P T 1 lA r AA T t m IT 

"SET UP FOR TIMEOUT 


002560 


A4 A^V^ 

012737 


177570 


AA 4 A i A 

001240 




MOV 


#177570, SWR 


. C r T Cl lA TA LIAAA Cl lA A A AAC C C 

'SET SWR TO HARD SWR ADDRESS 


002566 


012737 


4 *iA 

1 77570 


A A 4 A < A 

001242 




MOV 


Ai4*V*Vf*VA Atom AW 

#177570, DISPLAY 


At<*Al AW TA IIAAA CllA AAAAFPf* 

;SET DISPLAY TO HARD SWR ADDRESS 


A A Af ^ / 

002574 


A A A 

022777 


177777 


176436 




CMP 


#-1 ,asuR 
6»*2 


APrrA^Al^P IIAAAIIAAP niTT^il Ar/*ffOTPn 

;REFERENCE HARDWARE SWITCH REGISTER 


AAA ^ A A 

002602 


001402 








BEQ 


ffP _ 4 llCP OAPT Ol tA AAIWI lA W 

;IF = -1 USE SOFT SWR ANYWAY 


002604 


AAA A9 

000407 








BR 


7$ 


tP tT PW4CTC A AlA AlAT _ 4 I P IJ A A A CI lA 

;IF IT EXISTS AND NOT = -1 USE HARD SWR 


002606 


022626 






6S: 


CMP 


(SP)*, CSP)* 


. AAkllf^T CTAOV 

;ADJUST STACK 


002610 


012737 


000176 


001240 




MOV 


#SUREG,SUR 


;POINTER TO SOFT SWR 


002616 


012737 


0001 74 


001242 




MOV 


#D I SPREG, DISPLAY 


;POINTER TO SOFT DISPLAY REG 


AA A ^ A 3 

002624 


A « A^ V ^ 

012637 


A A A A A M 

000004 




7$: 


NOV 


(sp)*,a#4 


;RESTORE VECTORS 




01 cojr 


UUOUUo 












002634 


105737 


001506 






TST8 


INIFLG 


;HAS INITIALIZATION BEEN PERFORMED 


002640 


001006 








BNE 


20$ 


;BR IF YES 


002642 


022737 


004070 


000042 




CMP 


#$ENDAD,a#42 


:IF ACT-11 AUTOMATIC MODE. DON'T TYPE ID 


002650 


001402 








BEQ 


20S 




002652 


104401 


001000 






TYPE 


,HTITLE 


.TYPE TITLE MESSAGE 


002656 


004737 


011340 




20S: 


JSR 


PCCKSUR 


.•CHECK FOR SOFT SWR 


002662 


017737 


176352 


001446 




MOV 


aSUR,STRTSU 


; STORE STARTING SWITCHES 


002670 


005737 


000042 






TST 


a#42 


;IS IT RUNNING IN AUTO MODE? 


002674 


00U02 








BEQ 


.♦6 


'BR IF NO 


002676 


005037 


001446 






CLR 


STRTSU 


•IF YES. CLEAR SWITCHES 

;IF SW00=1, QUESTIONS ARE ASKED. 

;BR IF SWO0=1 


002702 


032737 


000001 


001446 




BIT 


<SU00,STRTSW 


002710 


001012 








BNE 


17S 


002712 


105737 


001446 






TSTB 


STRTSU 


;BIT7=1?? 
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1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
148S 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 



SEQ 0033 



002716 


100007 








BPL 


17$ 


BR W SU07=0 


002720 


005737 


001470 






TST 


KHACTV 


ARE ANY DEVICES SELECTED? 


002724 


001027 








BNE 


16$ 


BR IF YES 


002726 


104401 


011057 






TYPE. 


NOACT 


NO DEVICES SELECTED. 


002732 


000000 








HALT 




STOP THE SHOW 


002734 


000776 


001336 






BR 


.-2 ! 


DISQUALIFY CONTINUE SWITCH 


002736 


105737 




17$: 


TSTB 


$ENV 


IS IT UNDER APT DUMP MODE? 


002742 


001405 








BEQ 


27$ 


YES, CHECK IF APT SIZED IT? 


002744 


132737 


000001 


001336 




BITB 


«1,$ENV 


IS IT UNDER Q,V OR RUN MODE? 


002752 


001012 








BNE 


30$ 


YES, NEEDS ONLY APT SIZING. 


002754 


000406 








BR 


33$ 


NO, NEEDS REGULAR AUTO.SIZE. 


002756 


105737 


001337 




27$: 


TSTB 


$ENVH 


• IS IT SIZED BY APT? 


002762 


100406 








BMI 


30$ 


• YES. NEEDS ONLY APT SIZING. 


002764 


042737 


000001 


001446 




BIC 


fSWOO.STRTSU 


SIZE ONLY IN AUTO MODE. 


002772 


004737 


012236 




33$: 


JSR 


PC, AUTO. SIZE 


• GO DO THE AUTO.SIZE. 


002776 


0004C2 








BR 


16$ 


• GO PRINT THE MAP. 


003000 


0047';7 


013716 




30$: 


JSR 


PC, APT. SIZE 


; GO DO THE APT SIZING. 


003004 


105737 


001 506 




16$: 


TSTB 


INIFLG 


;FIRST TIME? 


003010 


001410 








BEQ 


21$ 


-BR IF YES 


003012 


105737 


001446 






TSTB 


STRTSW 


;IF USING SAME PARAMETERS DONT 


003016 


100431 








BMI 


1$ 




003020 


032737 


000006 


001446 




BIT 


#B1T1 iBlT2.STRTSU:IS TEST NO. OR LOCH. SELECTED 


003026 


001403 








BEQ 


24$ 


;IF NO THEN TYPE STATUS 


003030 


000424 








BR 


1$ 


;IF YES DO NOT TYPE STATUS 


003032 


105137 


001506 




21$: 


cone 


INIFLG 


;SET FLAG 


003036 


104401 


010100 




24$: 


TYPE 


,XHEAD 


;TYPE HEADER 


003042 


012704 


002100 






MOV 


fKM.MAP,R4 


;SET POINTER 


003046 


010437 


001276 




5$: 


MOV 


R4,$THP0 


;SET ADDRESS 


003052 


012437 


001 300 






MOV 


{R4)».$THP1 


;SET CSR 


003056 


001411 








BEQ 


1$ 


;ALL DONE IF ZERO 


003060 


012437 


001302 






MOV 


(R4)*.$THP2 


;SET STAT1 


003064 


012437 


001 304 






MOV 


(R4)*,$THP3 


;SET STAT2 


003070 


012437 


001306 






MOV 


(R4)».$THP4 


;SET STAT3 


003074 


104416 








CONVRT 


;TYPE OUT STATUS HAP 


003076 


011206 








XSTATQ 






003100 


000762 
012700 








BR 


5$ 




003102 


002100 




1$: 


MOV 


#ICM.MAP,RO 


;R0 POINTS TO STATUS TABLE 



♦AUTO SIZE TEST 

♦THIS TEST VERIFYS THAT THE KMC11S AND/OR KMCllS ARE AT THE CORRECT FLOATING 
♦ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
♦CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,DH,DQ,DU,DUP,LK,DMC,DZ.KMC) . 
♦IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE KMC11. THE FIRST 
♦ KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT 
♦ADDRESS 760000. 



003106 


013746 


000004 




MOV 


a#4,-(SP) 


SAVE LOC 4 


003112 


013746 


000006 




MOV 


a#6,-(SP) 


SAVE LOC 6 


003116 


005037 


000006 




CLR 


a«6 


CLEAR VEC+2 


003122 


005037 


001302 




CLR 


$TMP2 


CLEAR FLAG 


003126 


011037 


002066 


AUSTRT: 


MOV 


(RO),KMCSR 


'GET NEXT KMC CSR 


0031 32 


001510 






BEQ 


AUDONE 


BR IF DONE 


003134 


012737 


003240 000004 


2$: 


MOV 


#N0DEV,a#4 


SET UP FOR TIMEOUT 


003U2 


012703 


000010 


3$: 


NOV 


#10, R3 


R3 IS COUNT OF DEVICES BEFORE KMC 
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MACYll 


3GA(1052} 08-JUL 
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C2KCE.P11 08 


"JUL OU 


OA' 74 
I/O • £<• 


PROGRAM 


INITIALIZATION AN!) START 


1531 


003146 


V 1 C'VC 




4$: 


NOV 


#0EVTAB,R2 


1532 


003152 


019701 


1 WUv V V 




NOV 


#160010, R1 


1533 


003156 


\>\iji 1 1 




FLOAT: 


TST 


(R1) 


1554 


003160 


1 1 1 C\JH 






NOVB 


{R2),R4 


1535 


003162 


AAo^ni 

Uvv'»U 1 






ADD 


R4,R1 


1536 


003164 


\J\JJCv 1 






INC 


R1 


1537 


003166 








BIC 


R4,R1 


1538 


003170 


005703 






TST 


R3 


1539 


003172 


001^71 






BNE 


FLOAT 


1540 


003174 


01?737 


005244 


000004 


MOV 


«ERR,af4 


1541 


003202 


00571 1 

WW J t t t 




FY: 


TST 


(Rl ) 


1542 


003204 


0?Ol37 

wC w I J 1 


002066 

Wb www 




CMP 


Rl .KMCSR 


1543 


003210 


WW 1 V J 






BEQ 


OK 


1544 


003212 


wwC » w 1 


000010 

WW ■ w 




ADD 


#10, Rl 


1545 


003216 


000771 

VVvr f 1 






BR 


FY 


1546 


003220 


06? 700 

wOC ■ WW 


000010 

WW ■ w 


OK: 


ADD 


#10, RO 


1547 


003224 


062701 

WWb 'VI 


000010 

WW WW 1 V 




ADD 


#10, Rl 


1548 


003230 


011057 

W 1 1 W J r 


002066 




NOV 


(RO) .KMCSR 


1549 


003234 


001447 

WW 1 ^ ^ r 






BEQ 


AUOONE 


1550 


003236 


000761 

WW I W 1 






BR 


FY 


1551 


003240 


122243 




NODEV: 


CHPB 


(R2)*,-(R3) 


1552 


003242 


000002 

wwwwwc 






RTI 




1553 


003244 


005757 

WW J 1 J t 


001 502 


ERR: 


TST 


$THP2 


1554 


003250 


001014 






BNE 


1S 


1555 


003252 


10^^01 






TYPE 




1556 


003254 


011110 






CONERR 




1557 


003256 


012757 


005244 


001460 


MOV 


#ERR, SAVPC 


1558 


003264 


1 OLL 1 7 






CNVRT 




1559 


003266 


003522 






ERRPC 




1560 


003270 


104401 






TYPE 




1561 


003272 


011155 






CNERR 




1562 


003274 


012757 


177777 


001 302 


MOV 


#-1 ,$TMP2 


1563 


003302 


010157 

W 1 W i </ • 


001264 

WW 1 fcW~ 


1$: 


NOV 


R1 ,iREG1 


1564 


003306 


104416 






CONVRT 




1565 


003310 


005550 

WV*'^ ^w 






CONTAB 




1566 


003312 


104401 




3S: 


TYPE 




1567 


003314 


011176 






KMCM 




1568 


003316 


022626 




4S: 


CMP 


(SP)*,(SP)* 


1569 


003320 


000757 

WWWf ^« 






BR 


OK 


1570 


003322 


000001 

w Www < 




ERRPC: 


1 


6,2 


1571 


003324 


006 

www 


002 

WVb 




• BYTE 


1572 


003326 


001460 

WW I ~ WW 






SAVPC 




1573 


003330 


000002 

WWWWWfc 




CONTAB: 


2 




1574 


003332 


006 


004 




• BYTE 


6,4 


1575 


003334 


001 264 






SREGI 




1576 


003336 


006 

WWW 


002 

WWb 




.BYTE 


6,2 


1577 


003340 


002066 






KMCSR 




1578 


003342 


007 

WW ' 




DEVTAB: 


.BYTE 


7 


1579 


003343 


017 

W 1 ■ 






.BYTE 


1 7 


1580 


003344 


007 






.BYTE 


7 


15B1 


003343 


007 

wv« 






.Bt It 


7 

f 


1582 


003346 


007 






.BYTE 


7 


1583 


003347 


007 






.BYTE 


1 


1584 


003350 


007 






.BYTE 


7 


1585 


003351 


007 






.BYTE 


7 


1586 


003352 


007 






.BYTE 


7 



SEO 0034 



R2 IS DEVICE TABLE PONTER 
START UI TH ADDRESS 160010 
CHECK ADDRESS IN Rl 
IF NO TIMEOUT, GET NEXT ADDRESS 
IN Rl 



ANY MORE DEVICES TO CHECK FOR? 
BR IF YES 

OK ONLY KMC'S ARE LEFT, SET UP FOR TIMEOUT 
CHECK KMC ADDRESS 
DOES IT MATCH 
BR IF YES 

GET NEXT KMC ADDRESS 

DO IT AGAIN 

SKIP TO NEXT KMC CSR 

GET NEXT KNC ADDRESS 

GET NEXT KMC CSR 

BRANCH IF ALL DONE. 

DO IT AGAIN. 
ON TIMEOUT, INC R2, DEC R3 
ILPADR 

CHECK FLAG IF = 0 TYPE HEADER 
SXIP HEADER 

TYPEOUT HEADER MESSAGE 
CONFIGURATION ERROR! ! ! ! 
SAVE PC FOR TYPEOUT 
TYPE OUT ERROR PC 

TYPE REST OF HEADER 

SET FLAG SO IT ONLY GETS TYPED ONCE 
SAVE Rl FOR TYPEOUT 

TYPE CSR VALUES 



.•ADJUST STACK 
;BR TO GET OUT 



;DJ 

;DH 

;DQ 

;0U 

;DUP 

;LK 

;DMC 

;DZ 

:KMC 
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SEO 0035 



1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 



003354 
003354 
003360 
003364 
003372 
003374 
003400 
003402 
003404 
003412 
003414 
003420 
003422 
003424 
003432 
003436 
003440 
003444 
003450 
003452 
003454 
003456 
003462 



003464 
003470 
003474 
003500 
003502 
003510 
003514 
003516 
003522 
003524 
003530 
003534 
003S40 
003544 
003546 
003550 
003554 
003560 
003564 
003566 
003572 
003574 
003602 
003610 
003612 
003616 
003624 
003626 



003354 



.EVEN 
AUDONE : 



012637 


000006 




IS: 


MOV 


(SP)+.8#6 


RESTORE LOC 6 


012637 


000004 






MOV 


(SP)«.a«4 


RESTORE LOC 4 


032737 


000010 


001446 




BIT 


fSU03.STRTSW 


SELECT SPECIFIC DEVICES?? 


001422 








BEO 


3$ 


BR IF NO. 


104401 


010020 






TYPE 


,HNEU 


TYPE THE MESSAGE. 


005000 








CLR 


RO 


ZERO DATA LIGHTS 


000000 








HALT 




WAIT FOR USER TO TELL WHAT DEVICES TO RUN 


027737 


175630 


001474 




CMP 


aSUR.SAVACT 


IS THE NUMBER VALID? 


101404 








BLOS 


2S 


BR IF NUMBER IS OK. 


104401 


007673 






TYPE 


.MERR3 


-TELL USER OF INVALID NUMBER. 


000000 








HALT 




STOP EVERY THING. 


000776 








BR 


.-2 


RESTART THE PROGRAM AGAIN. 


017737 


175610 


001470 


2$: 


MOV 


aSUR.KMACTV 


•GET NEW DEVICE PATTERN 


013700 


001470 






MOV 


KMACTV.RO 


;SHOU THE USER WHAT HE SELECTED. 


000000 








HALT 


{CONTINUE DYNAMIC SWITCHES. 


012700 


000300 




3$: 


MOV 


f 300.ro 


; PREPARE TO CLEAR THE FLOATING 


012701 


000302 






MOV 


#302, Rl 


[VECTOR AREA. 300-776 
;START PUTTING "PC*2 - HALT" 


010120 






4S: 


MOV 


R1,(R0)* 


005021 








CLR 


(RD* 


;IN VECTOR AREA. 


022021 








CMP 


(R0)*,(R1)* 


;POP POINTERS 


022700 


001000 






CMP 


#1000.RO 


;ALL DONE?? 


001372 








BNE 


4S 


:BR IF NO. 



012706 
013746 
013746 
005000 
012737 
005037 
005720 
022700 
001374 
162700 
010037 
012637 
012637 
000413 
022626 
162700 
162700 
022700 
001361 
012700 
000756 
012737 
032737 
001406 
104401 
012737 
000403 
013737 







.TEST START AND 


QP CT ART 




001200 




• 

.BEGIN: 


MOV 


#STACK,SP 


SET UP STACK 


000006 






MOV 


a#6,-(SP) 


SAVE LOC 6 


000004 






MOV 

CLR 


a#4,-(SP) 

RO 


SAVE LOC 4 
START AT 0 


003546 


000004 




NOV 


#2$.a#4 


SET UP FOR TIME OUT 


000006 






CLR 


a#6 


TO AUTOS I ZE MEMORY 






6S: 


TST 


(RO)* 


CHECK ADDRESS IN RO 


157776 






CMP 
BNE 


#1 57776.ro 
6S 


IS IT AT LEAST 28K 
BR IF NO 


007776 






SUB 


#7776. RO 


SAVE 2K FOR MONITORS 


001466 




7$: 


MOV 


RO.NENLIM 


STORE MEMORY LIMIT 


000004 






MOV 


(SP)*,a#4 


RESTORE LOC 4 


000006 






MOV 


(SP)*,af6 


RESTORE LOC 6 






BR 


10$ 


CONTINUE 






2$: 


CMP 


(SP)*.ISP)* 


ADJUST STACK 


000004 




sua 


#4,R0 


;GET LAST GOOD ADDRESS 


007776 






SUB 


#7776, RO 


ISAVE 2K FOR MONITORS 


030000 






CMP 
BNE 


#30000, RO 
7S 


;IS IT 8K? 
■BR IF NO 


037400 






MOV 
BR 


#37400. RO 
7$ 


;IF 8K DON'T SAVE 2K 


000340 


177776 


10$: 


MOV 


#340.PS 

#bit2.strtsu 


■LOCK OUT INTERRUPTS 


000004 


001446 




BIT 


;CHECK FOR LOCK ON TEl. 




BEQ 


IS 


;BR IF NO LOCK DESIRED. 


007717 






TYPE 


,MLOCK 


;TYPE LOCK SELECTED. 


000240 


004146 




MOV 


#HOP,TTST 


;SET UP TO LOCK 




BR 


3S 


; CONTINUE ALONG. 


004360 


004146 


1$: 


MOV 


bru.ttst 


; PREPARE NORMAL SCOPE ROUTINE 



L 



> 
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SEQ 0036 



1643 


003634 


012737 


011606 


001206 


3$: 


NOV 


fCYCLE.SLPADR 


.•START AT "CYCLE" FIND 


1644 


003642 


032737 


000002 


001446 


4$: 


BIT 


fSUOI.STRTSU 


:IS TEST NO. SELECTED? 


1645 


003650 


001002 








BNE 


5$ 


;BR IF YES 


1646 


003652 


104401 


007643 






TYPE 


.MR 


.TYPE R 


1647 


0036S6 


000177 


175324 




5S: 


JHP 


atLPADR 


.•START TESTING 



TO TEST 
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L 3 



SEQ 0057 



1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

169S 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 



003662 
003662 
003664 
003670 
003674 
003700 
003704 
003710 
003714 
003720 
003724 
003730 
003734 
003740 
003744 
003750 
003754 
003762 
003766 
003774 
004000 
004004 
004006 
004014 
004022 
004026 
004032 
004036 
004044 
004046 
004050 
004052 
004054 
Q040S6 
004060 
004064 
004066 
00407v1 
004072 
004074 
004076 
004100 
004100 



000005 
005237 
105037 
104401 
104401 
104417 
104401 
104417 
104401 
10<»417 
104401 
104417 
013700 
013720 
013720 
013777 
005077 
013777 
005077 
005337 
001035 
112737 
013737 
005037 
005037 
005237 
042737 
005327 
000001 
003013 
012737 
000001 
004046 
013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 



.'END OF PASS 
;TrPE NAHE OF TEST 
: UPDATE PASS COUNT 
;CHECK FOR EXIT TO ACT-11 
.•RESTART TEST 

.SBTTL END OF PASS ROUTINE 



; 'INCREMENT THE PASS NUHBER (tPASS) 
:*IF THERES A MONITOR 60 TO IT 
;*IF THERE ISN'T JUMP TO CYCLE 

$EOP: 



001324 
001203 
007620 
007746 
004104 
007754 
004112 
007762 
004120 
007773 
004126 
001304 
001324 
001212 

002060 176074 
176072 

002064 176066 

176064 

001476 

000377 001511 
001472 001476 
001216 
001310 
001324 

100000 001324 



000042 





RESET 








INC 


SPASS 


INCREMENT THE PASS COUNT 




CLRB 


SERFLG 


CLEAR ERROR FLAG 




TYPE 


.HEPASS 


TYPE END PASS. 
• TYPE "CSR" 




TYPE 


.nCSRX 




CNVRT 


,XCSR 


• SHOW IT. 




TYPE 


.nvECx 


TYPE VECTOR. 




CNVRT 


,XVEC 


; SHOW IT. 




TYPE 


.NPASSX 


; TYPE " PASSES " 




CNVRT 


,XPASS 


■ SHOW IT. 




TYPE 


.HERRX 


■ TYPE " ERRORS " 




CNVRT 


,XERR 


- SHOW IT. 




nov 


niLK.RO 


, SET POINTER TO PASSCNT. 




MOV 


$PASS.(RO)+ 


; SAVE THE PASS COUNT. 




nov 


SERTTL.(RO)+ 


; SAVE ERROR COUNT 




mv 


KHRLVL.aKHRVEC 


; RESTORE THE RECEIVER INTERRUPT 




CLR 


iKHRLVL 


; RESTORE RECEIVER LEVEL 




mv 


KHTLVL.aKHTVEC 


■ RESTORE THE TRANSMIT INTERRUPT 




CLR 


aKHTLVL 


; RESTORE TRANSMITTER LEVEL 




DEC 


SAVNUH 


• ALL DEVICE TESTED? 




BNE 


SDOAGN 


; BRANCH IF NO. 




novB 


#377,QV.FLG 


; SET QUICK VERIFY FLAG. 




MOV 


KHNUM^SAVNUM 


; RESTORE DEVICE COUNT. 




CLR 


SERRPC 


; CLEAR LAST ERROR PC 




CLR 


STINES 


;;ZERO THE NUMBER OF ITERATIONS 




INC 


SPASS 


INCREMENT THE PASS NUMBER 
;;DON'T ALLOW A NEG. NUMBER 




BIG 


#1 00000. SPASS 




DEC 


(PC)* 


;;LOOP? 


SEOPCT: 


.WORD 


1 




BGT 


SDOAGN 


;;YES 




NOV 


(pc)*.a(pc)* 


;:RESTORE COUNTER 


SENDCT: 


.WORD 
SEOPCT 


1 




S6ET42: 


NOV 


af42,R0 :;6ET MONITOR ADDRESS 




BEO 


SDOAGN ; .-BRANCH IF NO MONITOR 




RESET 


.-.-CLEAR THE WORLD 


SEND AO: 


JSR 


PC.(RO) .-;G0 TO MONITOR 




NOP 


.-.-SAVE ROOM 




NOP 


;;FOR 




NOP 


;;ACT11 


SDOAGN: 










JHP 


a(PC)* ::RETURN 



C2KCE HACY11 50a(10S2) 08-JUL-80 08:24 PAGE 39 
CZKCE.PII 08-JUL-80 08:24 END OF PASS ROUTINE 



n 3 



SEQ OO'fi 



1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 



004102 
004104 
004106 
004110 
004112 
004114 
004116 
004120 
004122 
004124 
004126 
004130 
004132 



011606 
000001 

006 
002066 
000001 

004 
002056 
000001 

006 
001324 
000001 

006 
001212 



004134 
004134 
004140 
004144 
004146 
004150 
004154 
004156 
004164 
004172 



005037 
023716 
001413 
000406 
105777 
100067 
017766 
032777 
001060 



004174 000416 



004176 
004202 
004210 
004214 
004220 
004222 
004224 
004230 
004232 
004232 
004236 
004240 
004244 
004250 



013746 
012737 
005737 
012637 
000436 
022626 
012637 
000441 

105737 
001404 
105037 
005037 
032777 



002 
002 
002 
002 



001216 
014142 



175070 

175064 
040000 



000004 
004222 
177060 
000004 



000004 



001203 

001203 
001510 
004000 



177776 
175046 



SRTNAD: 
XCSR: 



XVEC: 

XPASS: 

XERR: 



.WORD 

1 

.BYTE 
KHCSR 

1 

.BYTE 
KNRVEC 

1 

.BYTE 
SPASS 
1 

.BYTE 
SERTTL 



CYCLE 
6.2 

4.2 

6.2 

6.2 



:SCOPE LOOP AND INTERATION HANDLER 
.58TTL SCOPE HANDLER ROUTINE 

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

.-•AND LOAD TME TEST NUMBER ( ST STNN) INTO THE DISPLAY REG. (DISPLAY<-7: 

;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15 :08> 

:*THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

;*Syi4:l LOOP ON TEST 

:*SU11=1 INHIBIT ITERATIONS 

;*CALL 

;* SCOPE ;:SCOPE=IOT 



0>) 



SSCOPE : 

CLR 
CHP 
BEQ 
TTST: BR 

TST8 
BPL 

mv 

1$: BIT 
BNE 

;»#ff#START OF 
SXTSTR: BR 



nov 

000004 HOV 
TST 

nov 

BR 

5$: CHP 

nov 

BR 

6S:;#«#««END OF 

2S: TSTB 
BEQ 

41: CLRB 
CLR 

174762 3»: BIT 



tERRPC 
TSTU2.CSP) 
SXTSTR 
IS 

aSTKS 
SOVER 

aSTKB.-2(SP) 

fBITU.aSUR 

SOVER 

CODE FOR THE XOR 
6S 

afERRVEC.-(SP) 
#5S,a«ERRVEC 
an 77060 
(SP)*.afERRVEC 
SSVLAD 
(SP)*.(SP)* 
(SP)^.afERRVEC 
SOVER 

CODE FOR THE XOR 
SERFLG 
3S 

SERFLG 
STIHES 
«BIT11.aSWR 



; CLEAR LAST ERROR PC 
; IS THIS TEST #1 ? 
; IF SO DON'T LOOP. 

: KEYBOARD DONE ? 
; IF NO DONT WAIT. 

;LOOP ON PRESENT TEST? 
;YES IF SUUsl 
TESTE Rm#« 
;IF RUNNING ON THE "XOR" TESTER CHANGE 
;THIS INSTRUCTION TO A "NOP" (NOP=240) 
.-SAVE THE CONTENTS OF THE ERROR VECTOR 
;SET FOR TIMEOUT 
.•TIME OUT ON XOR? 
; RESTORE THE ERROR VECTOR 
;G0 TO THE NEXT TEST 
.•CLEAR THE STACK AFTER A TIME OUT 
.RESTORE THE ERROR VECTOR 
.-LOOP ON THE PRESENT TEST 
TESTER##««« 

;HAS AN ERROR OCCURRED? 
* BR IF NO 

•ZERO THE ERROR FLAG 

; CLEAR THE NUMBER OF ITERATIONS TO MAKE 
: INHIBIT ITERATIONS? 
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SCOPE HANDLER ROUTINE 



SEO 0039 



1760 

1761 

1762 

1763 

1764 

^.765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 



00/.256 
004260 
004264 
004266 
004272 
004300 
004302 
004310 
004316 
004322 
004330 
004334 
004342 
004346 
004352 
004356 
004360 
004362 



004364 
004370 
004376 
004400 
004404 
004406 
004412 



004414 
004420 
004422 
004424 
004426 
004430 



001011 
005737 
001406 
005237 
023757 
002015 
012737 
013737 
105237 
113737 
011637 
013777 
013716 
005037 
013701 
000002 
000406 
000020 



004737 
032777 
001405 
005737 
001402 
013716 
000002 



105737 
100002 
000000 
000430 
010046 
017600 



001324 



001204 

001310 001204 

000001 001204 
004362 001310 
001202 

001202 001322 
001206 

001202 174700 
001206 
001444 
002066 



011340 
001000 

001444 

001444 



174642 



1$: 

SSVLAD; 
nVER: 



BRU: 
SnxCNT : 



.SCOPl 



8NE It 

TST $PASS 

BEO It 

INC tICNT 

CNP tTINES.tlCNT 

BGE tOVER 

NOV #l,tICNT 

NOV tNXCNT,tTINES 

INCB tTSTNN 

nOVB tTSTNN. tTESTN 

NOV (SP),tLPAOR 

NOV tTSTNN. aOISPLAY 

NOV tLPAOR,(SP) 

CLR LOCK 

NOV KNCSR.Rl 

RTI 

.WORD 406 

20 



'BR IF YES 

:;IF FIRST PASS OF PROGRAN 

INHIBIT ITERATIONS 
;;INCRENENT ITERATION COUNT 
;:CHECK THE NUNBER OF ITERATIONS MADE 
;:BR IF NORE ITERATION REQUIRED 
; .-REINITIALIZE THE ITERATION COUNTER 
;:SET NUNBER OF ITERATIONS TO DO 
;; COUNT TEST NUNBERS 
;:SET TEST NUNBER IN APT NAILBOX 
;;SAVE SCOPE LOOP ADDRESS 
; .DISPLAY TEST NUNBER 
;; FUDGE RETURN ADDRESS 

: RESET LOCK ON DATA. 

; R1 CONTAINS BASE KNC ADDRESS. 



;:NAX. NUNBER OF ITERATIONS 



; CHECK FOR FREEZE ON CURRENT DATA 



It: 



JSR PC.CKSUR 

BIT #SU09,aSUR 

BEQ 1t 

TST LOCK 

BEQ It 

NOV LOCK.(SP> 

RTI 



; CHECK FOR SOFT SUR 
;1S SU09=1(SET)? 
:BR IF NOT SET. 



:GOTO THE ADDRESS IN LOCK. 
:G0 BACK. 



; TELETYPE OUTPUT ROUTINE 

§ 

.SBTTL TYPE ROUTINE 

^ROUTINE TO TYPE ASCIZ NESSA6E. HESSAGE MUST TERNINATE WITH A 0 BYTE. 
*THE ROUTINE WILL INSERT A NUNBER OF NULL CHARACTERS. AFTER A LINE FEED. 



•NOTEl: 
*N0TE2: 
•NOTE 3: 
* 

•CALL: 
•1) USING A 

• TYPE 
•OR 

• TYPE 

• NESADR 
* 



tNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
tFlLLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
tFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



TRAP INSTRUCTION 
.HESADR 



::NESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



001257 


tTYPE: 


TSTB 


tTPFLG 


;;IS THERE A TERMINAL? 




BPL 

HALT 


It 


::BR IF YES 

;:HALT HERE IF NO TERNINAL 






BR 


3t 


;; LEAVE 




It: 


NOV 


RO,-(SP) 


::SAVE RO 


000002 




NOV 


a2(SP).R0 


;:GET ADDRESS OF A^CIZ STRING 
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TYPE ROUTINE 


1 016 




1 037X7 
ice f 31 


A A/MAI 

OOOWl 


001336 




tnro 


1 ftl 7 

161 7 




AAi A4 i 

OQlOll 








BNc 


1 O 1 ft 

1818 


AA/ y y / 


1 T07T7 


AAA1 AA 

000100 


001337 




ol lb 


lOlT 


AAy /. to 
00*»«i3C 


AAI /.AC 

OU 14U> 








BC A 


1 BOA 


00«i*»3*» 


Al AAT7 


AA/./.A£ 






■AU 


1 fiOl 


AAy y ^A 


AA/ 7t7 
004 A 3f 


AA/.7A/. 






ICO 


lOCC 




AAAAAA 






A1C> 
0 1 » • 


• WUKI; 


1 

1 oci 


UU*»*i60 


1 T97X7 


AAAAAA 
UUUwHU 


001337 


A9l> 
OC*> 


Ol ID 


1 ■'5/. 


l\f\LL7L 


V/U1UU3 








tUif 




UUhh r 0 










nuwD 




Uv*i3W 


AAI AAC 
Uv 1 UU3 








Dive 


1 BO? 
IOC' 


UU>i3Uc 


AAC73A 
UU3' CO 








1 9 1 


1 B9B 


(\t\LKt\L 
UU«»3U*» 


Al 3AAA 










^ BOO 


AA/. CAA 


AA071 A 
UOC' 10 


AAAAA? 




Xt* 
39 • 


Ann 


1 o5U 




AAAnno 








DT t 


1 BT1 

103 1 


AA/. ^ 1 /. 


1 3371A 
ICC' 10 


nnnni i 




H 9 ■ 




1 BTO 


AAACOA 


AAI /.TA 
UU 1 *• 3U 








RPO 
DCW 


1 BTT 

1033 


Art/.^33 


1 3371 A 
1 Ccr 10 


nnn^nn 






TMPR 

\.nrO 


I03*» 


UU<i3cO 


AAI nn A 

vv 1 wUO 








one 


1 033 


w"»33v 


nn^79A 

UU3' CO 








T^T 


1 030 


UU* 3 3c 


1 VHHv 1 








TYPF 


1 03f 


UV«» 3 3'» 


nnixi X 

vv 13 13 








IfRl f 


1 BTA 

1 0 30 


AAA CTA 


in^nx7 


nn4A73 

UvHO f C 






tLnO 


1 BTO 

1 03t 


VU*>3<«c 


nAii7C(; 

WUU '33 








Dn 


iO«iU 


AA/.C/./. 
UvH 3'»*» 


nn^ 7X7 

vv** '31 


nnAA3A 

UvHOCO 




• 
• 


KP 


1 0** 1 


AA/ CCA 
UU'»33U 


1 3X73A 
1 C3r CO 


nniPSA 

UU 1 C JO 




A( • 
o» • 




1 B£3 


AA/.C^/. 
Uv"»33"» 


nni x^n 

Uv 1 33U 








RMF 
one 


1 BAT 
1 0*i3 


nA/.CCA 
UU*( 3 30 


ni X7^A 
W 1 3' HO 


Am 3^A 
Vw 1 C3H 






Mnu 
nu • 
















1 kL^ 
1 0*» J 


Uv'«30C 


mSXAA 


nnnnni 




71" 




1 BAA 


AAA CAA 
vVm 300 


nn377n 

V/vC ' ' V 








BLT 


1 Ri7 
1 0*» ' 


AAAC7A 


nn47X7 

UwH t 3f 


UvHOCO 






JSR 


1 HLH 
1 o*»o 




in^xx7 

1 U3 33 ' 


AAAA77 
WHO ' C 






OECB 


1 R^Q 


AAA Ann 


nnn77n 








BR 


1 R^n 














IR^I 

1 1 










.■HORIZONTAL TAB 


1 OjC 














103 3 


nn^An? 


1 1 371 A 

1 1 CI 1 o 


nnnn4n 




8$: 


novB 


1 R^^ 
1 03*« 


nn^AnA 


n047X7 

VVH f 31 


AAAAOy; 
UvHOCO 




9$: 


JSR 




WHO 1 c 


1 X?7X7 

1 3C ( Jf 


000007 

vwvwv f 


004672 




BITB 


1 030 


nn^APn 


noix73 

V/v I J 1 C 








BNE 


1R^7 


nn^A73 


\/vJ 1 Co 








TST 


IR^R 

1 030 


nn^A9^ 


nnA774 

vwVf CH 








BR 


1 OJT 


no^A9A 


105777 


174416 




STYPEC: 


TSTB 


1 RAn 


nn^AT? 

Uv'»03C 


innx7S 

1 UU3r 7 








BPL 


1 RA1 

1 OO 1 


Vlv'»03'» 


1 1 AA77 
1 1 OO ' ' 


vvvvvC 


174410 




novB 


1RA9 

lOOC 




1 CC • OO 


AAAAI^ 

VVVV 1 J 


000002 




CMPB 


1 RAT 

1 003 


nn^A^n 


nninnx 

vv 1 vv3 








BNE 


1 RA£ 
1 OC 


nn^AS? 


insnx7 

1 V?v3i 


Who ' C 






CLRB 


IRA^ 




nnn4nA 

VVVHvO 








BR 


1 vW 




122766 


000012 

VVVV 1 


000C02 


1$: 


cnPB 


1867 


004666 


001402 








BEQ 


1868 


004670 


105227 








INCB 


1869 


004672 


000000 






$CHARCNT:.WORD 


1870 


004674 


000207 






$TYPEX: 


RTS 


1?71 















B 4 



fAPTENV.SEMV 
62S 

fAPTSPOOL.SENVn 
62S 

R0,61S 

PC.$ATY3 

0 

«APTCSUP.SENVn 
60S 

(RO)*.-(SP) 
4S 

(SP)* 

{SP)*.RO 

f2.{SP) 

#HT,(SP) 
8S 

#CRLF.(SP) 
5S 

(SP)* 



SCHARCNT 
2S 

PC.STYPEC 

SFILLC.(SP)* 

2S 

$NULL,-(SP) 

KSP) 
6S 

PCSTYPEC 

SCHARCNT 

7S 



#' .(SP) 
PC.STYPEC 
#7, SCHARCNT 
9S 

(SP)* 
2S 

asTPS 

STYPEC 
2(SP),8STPB 
fCR,2(SP) 
IS 

SCHARCNT 
STYPEX 
fLF,2(SP) 
STYPEX 

(PC)* 

0 

PC 



SEQ 0040 



;;RUNNIN6 iN APT NODE 
;;N0.60 CHECK FOR APT CONSOLE 
;; SPOOL MESSAGE TO APT 
::N0,60 CHECK FOR CONSOLE 

SETUP MESSAGE ADDRESS FOR APT 
;; SPOOL MESSAGE TO APT 
;: MESSAGE ADDRESS 
;:APT CONSOLE SUPPRESSED 
;; YES, SKIP TYPE OUT 

;;PUSH CHARACTER TO BE TVPFO ONTO STACK 

;;BR IF IT ISN'T THE TERMINATOR 

:;IF TERMINATOR POP IT OFF THE STACK 

: .-RESTORE RO 

;; ADJUST RETURN PC 

.-.RETURN 

;: BRANCH IF <HT> 

:; BRANCH IF NOT <CRLF> 

;;POP <CR><LF> EOUIV 
.-.-TYPE A CR AND LF 

;; CLEAR CHARACTER COUNT 

;;6ET NEXT CHARACTER 

;;G0 TYPE THIS CHARACTER 

;;IS IT TIME FOR FILLER CHARS.? 

;;IF NO 60 GET NEXT CHAR. 

;;GET # OF FILLER CHARS. NEEDED 

::AND THE NULL CHAR. 

;;OOES A NULL NEED TO BE TYPED? 

;;BR IF NO— GO POP THE NULL OFF OF STACK 

;;60 TYPE A NULL 

;;D0 NOT COUNT AS A COUNT 

;;LOOP 



REPLACE TAB WITH SPACE 
;;TYPE A SPACE 
; .-BRANCH IF NOT AT 
;;TAB STOP 

;;POP SPACE OFF STACK 

:;GET NEXT CHARACTER 

:;UAIT IJNTIL PRINTER IS READY 

:;LOAD CHAR TO BE TYPED INTO DATA REG. 

::IS CHARACTER A CARRIAGE RETURN? 

: .-BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 

.-.-EXIT 

;;IS CHARACTER A LINE FEED? 
,-: BRANCH IF YES 

-COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 



CZKCE MAC Y 11 3Ca(1032) 08-JUL'80 08:24 PAGE 42 
CZKCE.PII 08-JUL-80 08:24 APT COWWWICATl 



1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 



.SBTTL APT COf 



004676 
004704 
004712 
004714 
004722 
004722 
004724 
004726 
004732 
004734 
004742 
004744 
004752 
004754 
004760 
004766 
004772 
004774 
005000 
005002 
005004 
005010 
005012 
005016 
005024 
005026 
005034 
005042 
005046 
005052 
005054 
005054 
005060 
005062 
005066 
005070 
005074 
005076 
005104 
005112 
005116 
005122 
005126 
005132 
005134 
005136 
005140 
005141 
005142 



112737 
112737 
000403 
112737 

010046 
010146 
105737 
001450 
122737 
001031 
132737 
001425 
017600 
062766 
005737 
001375 
010037 
105720 
001376 
163700 
006200 
010037 
012737 
000413 
017637 
062766 
013746 
004737 
000000 

105737 
001416 
005737 
001413 
005737 
001375 
017637 
062766 
005237 
105037 
105037 
105037 
012601 
012600 
000207 
000 
000 
000 
005144 
000200 
000001 
000100 



UVvUU 1 


Uv7 1 He 


4iTYl • 

9^ III* 


MnvR 

rfvvo 


000001 


005140 


$ATY3: 


novB 








BR 


000001 

vvvW 1 


00514? 


SATy4: 


MOVB 






tATVC ■ 










HOV 








nov 


00S140 






TSTB 








BEQ 




001336 




cnPB 

BNE 


000100 


001337 

vv 




BITB 








BEQ 


000004 






MOV 


000002 


000004 




ADD 


001316 




IS: 


TST 








BNE 


001332 






MOV 






2$: 


TSTB 








BNE 


001332 

VV 1 






SUB 








ASR 


001334 






MOV 


000004 

w w 


001316 




MOV 








BR 


000004 


005052 


3$: 


MOV 


000002 


000004 




ADD 


177776 






MOV 


004414 






JSR 






4S: 


.WORD 






5S: 




0O5U2 




10S: 


TSTB 








BEQ 


001336 






TST 








BEQ 


001316 




IIS: 


TST 








BNE 


000004 

VV w v~ 


001320 




MOV 


000002 

W W W W W 


000004 

V V w w V ~ 




ADD 


001316 






INC 


005142 




12S: 


CLRB 


005141 






CLRB 


005140 






CLRB 








MOV 








MOV 








RTS 






SMFLG: 


.BYTE 






SLFLG: 


.BYTE 






SFFLG: 


.BYTE 








.EVEN 



APTSIZE=200 
APTENV=001 
APTSPOOL=100 



C 4 

ROUTINE 

CATIONS ROUTINE 



SEO 0041 



#1 .SFFLG ;;T0 REPORT FATAL ERROR 

fl.SMFLG ;;T0 TYPE A MESSAGE 
SATYC 

#1 .SFFLG .;T0 ONLY REPORT FATAL ERROR 

RO.-(SP) ;;PUSH RO ON STACK 

RI.-(SP) ;;PUSH R1 ON STACK 

SMFLG ;; SHOULD TYPE A MESSAGE? 

5S * * I F NOT : BR 

fAPTENV.SENV -IoPERAtInG UNDER APT? 

3S :;IF NOT: BR 

f APT SPOOL. SENVM SHOULD SPOOL MESSAGES? 

3S ;;IF NOT: BR 

a4(SP),R0 ;:GET MESSAGE ADDR. 

i2,4(SP) ;;BUMP RETURN ADDR. 

SHSGTYPE ;;SEE IF DONE U/ LAST XMISSION? 

IS ;;IF NOT: WAIT 

RO.SMSGAD ::PUT ADDR IN MAILBOX 

(RO)* ;;FIND END OF MESSAGt 

2S 

SMSGAD.RO ;;SUB START OF MESSAGE 

RO ::GET MESSAGE LNGTH IN WORDS 

RO.SMSGLGT .-.-PUT LENGTH IN MAILBOX 

#4,SMS6TYPE ;;TELL APT TO TAKE MSG. 

5S 

a4(SP),4S ::PUT MSG ADDR IN JSR LINKAGE 
lf2,4{SP) ;;BUMP RETURN ADDRESS 

177776. -(SP) ;;PUSH 177776 ON STACK 

PC.STYPE ;;CALL TYPE MACRO 
0 

SFFLG ; .-SHOULD REPORT FATAL ERSOR? 

12S ;;IF NOT: BR 

SENV : .-RUNNING UNDER APT? 

12S ;;IF NOT: BR 

SHSGTYPE .-.-FINISHED LAST MESSAGE? 

11S ;;IF NOT: WAIT 

a4(SP).SFATAL ;;GET ERROR # 

#2.4(SP) .-;BUMP RETURN ADDR. 

SMSGTYPE ;:TELL APT TO TAKE ERROR 

SFFLG ;; CLEAR FATAL FLAG 

SLFLG ;;CLEAR LOG FLAG 

SMFLG ;;CLEAR MESSAGE FLAG 

(SP)*.R1 ;;POP STACK INTO R1 

(SP)*.RO ;:POP STACK INTO RO 

PC .-.-RETURN 

0 ;;MESSG. FLAG 

0 ;;L0G FLAG 

0 .-.-FATAL FLAG 



r 



CZKCE MACY11 30^(1032) 08-JUL-80 
C2KCE.P11 08-JUI-80 08:24 



1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

^936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1985 



005264 
005266 
005270 
005274 
005300 
005302 
005304 
005306 
005512 



000040 
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APT COPWUNI CAT IONS ROUTINE 

APTCSUP=040 

.S8TTL TTY INPUT ROUTINE 



D 4 



SEO 0042 



.ENABL LSB 
.DSA6L LSB 



RDCHR 

RETURN HERE 



005144 


011646 






SRDCHR: 


MOV 


(SP),-(SP) 


005146 


016666 


000004 


000002 




HOV 


4(SP).2(SP) 


005154 


105777 


1 74064 




IS: 


TSTB 


aSTKS 


005160 


100375 








BPL 


U 


005162 


1 1 7766 


174060 


000004 




novB 


a$TKB.4(SP) 

#*C<177>,4{SP) 

4(SP).#23 


005170 


042766 


1 77600 


000004 




BIC 


005176 


026627 


000004 


000023 




CMP 


005204 


001013 








BNE 


3S 


005206 
005212 


105777 


174032 




2t: 


TSTB 


aSTKS 


100375 








BPL 


2$ 


005214 


117746 


174026 






NOVB 


a$TICB.-(SP) 
#*C177.(SP) 


005220 


042716 


1 77600 






BIC 


005224 


022627 


000021 






CMP 


(SP)*,#21 


005230 


001366 








BNE 


2S 


005232 


000750 








BR 


IS 


005234 


026627 


000004 


000140 


3t: 


CMP 


4(SP),#140 


005242 


002407 








BLT 


4S 


005244 


026627 


000004 


000175 




CMP 


4(SP),#175 


005252 


003003 








BGT 


4S 


005254 


042766 


000040 


000004 




BIC 


«40,4(SP) 


005262 


000002 






4t: 


RTI 





•iTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
;*CALL: 

;; INPUT A SINGLE CHARACTER FROM THE TTY 

;; CHARACTER IS ON THE STACK 
;;UITH PARITY BIT STRIPPED OFF 



.•PUSH DOWN THE PC 

.•SAVE THE PS 

.-WAIT FOR 
:;A CHARACTER 
;;READ THE TTY 
;;GET RID OF JUNK IF ANY 
;;IS IT A CONTROL-S? 
;: BRANCH IF NO 
;:UAIT FOR A CHARACTER 
:;LOOP UNTIL US THERE: 
;:GET CHARACTER 
;;MAKE IT 7-BIT ASCII 
;;IS IT A CONTROL-Q? 
;;IF NOT DISCARD IT 
;;YES, RESUME 
;;IS IT UPPER CASE? 
;;BRANCH IF YES 
;;IS IT A SPECIAL CHAR? 
; .-BRANCH IF YES 
;:NAKE IT UPPER CASE 
;:60 BACK TO USER 



;»THIS ROUTINE yiLL INPUT A STRING FROM THE TTY 
;*CALL: 

RDLIN 
;• RETURN HERE 



;; INPUT A STRING FROM THE TTY 

; .-ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 



010346 
005046 
012703 
022703 
101456 
104402 
112613 
122713 
001022 



005520 
005527 



000177 



SRDLIN: HOV R3.-(SP) 

CLR -(SP) 

IS: HOV #STTYIN,R3 

2S: CHP #STTYIN*7.R3 

BLOS 4S 

RDCHR 

HOVB (SP)*.(R3) 

10S: CHPB #177.(R3) 

BNE 5S 



- SAVE R3 

I -Clear the rubout key 

l.-GET ADDRESS 
;;BUFFER FULL? 
'BR IF YES 

;;G0 READ ONE CHARACTER FROM THE TTY 
;;GET CHARACTER 
;;IS IT A RUBOUT 
;:BR IF NO 



CZttCE HACYll 30A(1052) 08-JUL-80 



CZKCE.PII 08 


-JUL-80 08:24 


1934 


005314 


A A f ^4 y 

005716 




1985 


005316 


001007 




1986 


005320 


112737 


0001 34 


1987 


005326 


104401 


A A r f 4 ^ 

005516 


4 AAA 

1988 


005332 


A 4 4 ^ 

012716 


4 ^799T 

177777 


1989 


A Af 

005336 


AAf VAV 

005303 




4 AAA 

1990 


A A C V / A 

005340 


A*) AT 'S7 

020327 


AAC C ^ A 

005520 


4 AA 4 

1991 


A A f 9 > i 

005344 


4 AT y T y 

103434 




4 AA'^ 

1992 


005346 


4 4 4 TTT 

111337 


AAC C 1 X 

005516 


4 OAT 

1995 


AAC ^ 

005S52 


4 Ay y Ai 
104401 


AAC C i A 

005516 


1994 


AAC TCI. 

005356 


AAATy A. 

000746 




1995 


AACT^A 

005360 


005/16 




1996 


AAC if ^ 

005362 


AA4 y AX 

001406 




4 A A? 

1997 


AAC / 

005364 


112757 


AAA4 T / 

0001 54 


4 AAA 

1998 


005372 


i Ay y Ai 
104401 


AAC C i A 

005516 


4 AAA 

1999 


AAC 

005376 


AACAi A 
005016 




2000 


AAC i AA 

005400 


122713 


AAAAOC 

000025 


2001 


AAcy Ay 
005404 


AA4 AAV 
001003 




2002 


AAC y Ax 

005406 


4 Ay y Ai 

104401 


AAC C 07 

005527 


2003 


AAC/ i O 

005412 


AAA70A 

000726 




lAAy 

2004 


AAC > i y 

0054 1 4 


12271 3 


AAAAOO 

000022 


2005 


AAC / "lA 

005420 


AAi Ai i 

00101 1 




2006 


AAC/ 

005422 


1 ACA1 T 

10501 3 




2007 


AAC y '^y 

005424 


1 f\j y AI 

104401 


AAi 711 

00131 3 


^ AA A 

2008 


AAC J TA 

005430 


4 Ay y AI 

104401 


AACC OA 

005520 


lAAO 

2009 


AAcy Yy 
0054 3h 


AAA71 7 
00071 7 




^ A 4 A 

2010 


AAC y 

005436 


4 Ay y Ai 
104401 


AAi 7 1 O 

001 312 


^ A 4 4 

201 1 


AAC y y O 

005442 


AAA7 1 0 

000712 




201 £ 


AAcy y y 
005444 


1 i 1 TT7 

111 337 


AACC 1 A 

00551 6 


201 3 


AACy CA 

005450 


1 AAAA1 

104401 


AACC 1 A 

005516 


')Ai / 

2014 


AACy CA 

005454 


122723 


AAAA1 C 

00001 5 




AACy AA 

005460 


AAi TAC 

001 305 




OA1 

tO i6 


AACy AO 

005462 


1 ACAAT 

105063 


1 77777 

I f f f f f 


0A1 7 


AACy AA 

005ho6 


1 AA AAI 


AAI T1 A 
OU 1 J 1 *• 


ZU1B 


AACy 70 

005472 


AAC70A 

005 726 




OAi a 




AI OAAT 

01 2603 




2020 


AACy 7A 

0054 70 


Ai i AAA 

01 1646 




lA^ 1 

20< 1 


AACCAA 

005500 


Ai A/ AA 

016666 


AAAAAA 

OOOOOh 


2022 


AACCAA 

005506 


Ai 07AA 

012766 


AACCOA 

005520 


2023 


AACC 1 A 

005314 


AAAAAO 

000002 




«0r*» 


AACCIil 

005510 


AAA 

000 




1A >C 

202} 


AAC CI 7 

00531 f 


AAA 

000 




2026 


AACC OA 

005520 


AAAAA7 

000007 




202 r 


AACC07 

005527 


i TA 

1 36 


AAACOC 

006525 




AACCTA 

005534 


AA T C T A 

043536 


AACAI C 

00501 5 


20cV 


AACCA1 

0053^1 


Ai C 

01 3 


AC1 A 1 0 

051^12 


OATA 
20 3U 


AACCAA 

005540 


ATAAA A 

036MHO 


AAAAAA 

OOOOmO 


c031 


AAC ceo 

005552 


AOAAy A 

020040 


AA OC 1 A 

Uh25 16 


2032 


AACCAA 

005500 


A0AA7C 

020073 


AAA 

ouu 


2033 




AAC CAA 

00556*> 












?035 








2056 








2037 








2038 








2039 
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TTV INPUT ROUTINE 



E 4 



SEO 0043 



005516 



005516 



6S: 



1%: 



7$: 



8S: 



4S: 
3$: 



000002 
000004 



000012 
000 
051127 



9$: 

ITTYIN 
SCNTLU 
SCNTLG 
$HSWR : 



TST 


(SP) 


;;IS THIS THE FIRST RUBOUT? 


BNE 


6S 

#'\.9S 


::BR IF NO 


novB 


.-.-TYPE A BACK SLASH 


TYPE 


.9$ 




HOV 


#-1.(SP) 


:;SET THE RUBOUT KEY 


DEC 


R3 


.-BACKUP BY ONE 


C«P 


R3,nTTVIN 


.-.STACK EMPTY? 


BLO 


4S 


;;BR IF YES 


novB 


(R3).9* 


; .-SETUP TO TYPEOUT THE DELETED CHAR. 


TYPE 


a9* 


;;G0 TYPE 


BR 




;:G0 READ ANOTHER CHAR. 


TST 


(SP) 


;; RUBOUT KEY SET? 


BEO 


71 


:;BR IF NO 


novB 


#'\.9$ 


::TYPE A BACK SLASH 


TYPE 


.9$ 




CLR 


(SP) 


;; CLEAR THE RUBOUT KEY 


CHPB 


#25. (R3) 


;;IS CHARACTER A CTRL U? 


BNE 


8S 


:;BR IF NO 


TYPE 


.SCNTLU 


;;TYPE A CONTROL "U" 


BR 


1» 


;;G0 START OVER 


CHPB 


#22. (R3) 


;;IS CHARACTER A "•R"'' 


BNE 


3$ 


-BRANCH IF NO 


CLRB 


(R3) 


;; CLEAR THE CHARACTER 
;;TYPE A "CR" & "LF" 


TYPE 


,SCRLF 


TYPE 


.STTYIN 


.-.-TYPE THE INPUT STRING 


BR 


2S 


;;G0 PICKUP ANOTHER CHACTER 
;;TYPE A '?' 


TYPE 


,SQUES 


BR 


1$ 


CLEAR THE BUFFER AND LOOP 


HOVB 


(R3).9S 


::ECHO THE CHARACTER 


TYPE 


.9$ 




cnPB 


#15. (R3)* 


:: CHECK FOR RETURN 


BNE 


2$ 


;;lO0P IF NOT RETURN 


CLRB 


-1(R3) 


;;CLEAH RfTiiPN (THE 15) 


TYPE 


,«LF 


;;TYPE A LINE FEED 


TST 


(SP)* 


CLEAN RUBOUT KEY FROM THE STACK 


MOV 


(SP)*.R3 


;; RESTORE R3 


MOV 


(SP).-(SP) 


;; ADJUST THE STACK AND PUT ADDRESS OF THE 


nov 


4(SP).2(SP) 


;; FIRST ASCII CHARACTER ON IT 


«0V 


#$TTYIN,4(SP) 




RTI 


; .-RETURN 


.BYTE 


0 


;; STORAGE FOR ASCII CHAR. TO TYPE 


.BYTE 


0 


;: TERMINATOR 


.BLKB 


7 


: .-RESERVE 7 BYTES FOR TTY INPUT 


.ASCIZ 


/•U/<15><12> 


; .-CONTROL "U" 


.ASCIZ 


/*G/<15><12> 


;; CONTROL "G" 


.ASCIZ 


<15><12>/SUR = 


/ 



020127 tMNEU: .ASCIZ / NEW = / 



.EVEN 
.SBTTL 



READ AN OCTAL NUMBER FROM THE TTY 



.-•THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
.-•CHANGE IT TO BINARY. 

.-•THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 



CZKCE 


MCV11 


50A(1052) 


08- J U 


C2KCE.P11 08 


-JUL-80 08:24 


2040 








2041 








2042 








2043 








2044 








2045 








2046 








2047 








2046 


005564 


01 1646 




2049 


005566 


016666 


A A AAA / 

000004 


2050 


A A f f ^ i 

005574 


A 4 A A i X 

010046 




2051 


AAf r ^ £ 

005576 


A« A<« t A. 

010146 




2052 


A A ^ £ A A 

005600 


A 4 A ^ y £. 

010246 




2053 


005602 


4 A i / A 1^ 

104403 




2054 


005604 


A4 ^ X AA 

01 2600 




2055 


A A f I t%d 

005606 


A4 AA 9 7 

010037 


AAC 7 4 ') 

005712 


2056 


00561 2 


A A C A A 4 

005001 




2057 


AAf ^ 4 t 

005614 


AAf AA^ 

005002 




2C58 


AAf 1AM. 

005616 


4 4 ^A/ X 

1 12046 




2059 


A A f ^ ^ A 

005620 


A A 4 / ^ A 

001420 




2060 


A A C A 

005622 


122716 


AAAA^ A 

OOOOoO 


2061 


AA f A 

005626 


AATA1X 

003026 




2062 


AA f ^ T A 

005630 


4 ^ 7 4 X 

122716 


AAAA^ 7 

00006' 


2063 


A A f ^ V i 

005634 


AA 'it 

002423 




2064 


005636 


006301 




2065 


005640 


A A X 4 A ^ 

006102 




2066 


005642 


006301 




2067 


A A r 1 t i 

005644 


A AX 4 A ^ 

006102 




2068 


AAC^ y z 

005646 


A Ax T A 4 

006301 




2069 


A Af ^ A 

005650 


AAX 4 A^ 

0061 02 


1 7777A 

1 7 if f 0 


2070 


AAf X C ^ 

005652 


AV ^7 5 X 


2071 


A A CI. C X. 

005656 


Al. ^X. A 4 

062601 




2072 


AACXXA 

005660 


AAA7C^ 

000/56 




2073 


AAC X X ^ 

005662 


A A C 7 ^ i. 

005726 




2074 


AAC 

005664 


Ai Ai 

010166 


AAAA1 0 


2075 


AAC^ 7A 

005670 


A4 A')T7 

010237 


005722 


2076 


AAC^ 7/ 

005674 


A4 *iXA^ 

012602 




^ A^ Y 

2077 


AAC ^ 7A 

005676 


Ai ^l.A4 

012601 




2078 


AAC 7AA 


A4 O^AA 

012600 




t A^A 

2079 


AAC YA^ 

005702 


AAAAA^ 

000002 




^ A A A 

2080 


AAC 7Ay 


005726 




2081 


AAC 






^AO ^ 


AAC 7i A 

005/10 


i A/ y A1 




^AA Y 

20BS 


AAC Ti 1 
005f liC 


AAAAAA 
OOOOUU 


AA1 Til 

001312 


2084 


AAC 71/ 

005714 


4 A/ / A1 


AA C 

2085 


AAC 7^A 

005720 


AAA91A 

000730 




AB ^ 

2086 


005722 


AAAAAA 

000000 




2087 








A A A 

2088 








AA A 

2089 
















2091 


005724 


010546 




2092 


005726 


016605 


000002 


2093 


005732 


012537 


005770 


2094 


005736 


012537 


006050 


2095 


005742 


012537 


006052 



F 4 
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READ AN OCTAL NUNBEP FROM THE TTV 

•OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 
•FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN 
•CALL: 

• RDOCT 

• RETURN HERE 



SE6 0044 



::READ AN OCTAL NUMBER 
:;LOU ORDER BITS ARE ON TOP OF THE STACK 
;;HIGH ORDER BITS ARE IN SHIOCT 



000002 



SRDOCT; 



IS: 



2$: 



3$: 



4S: 



5S: 



$HIOCT 



MOV 

MOV 

MOV 

MOV 

MOV 

RDLIN 

MOV 

MOV 

CLR 

CLR 

MOVB 

BEQ 

CMPB 

BGT 

CMPB 

BLT 

ASL 

ROL 

ASL 

ROL 

ASL 

ROL 

BIC 

ADD 

BR 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

RTl 

TST 

CLRB 

TYPE 

.WORD 

TYPE 

BR 

.WORD 



(SP).-(SP^ 
4(SP).2(SP) 
RO,-(SP) 
R1 .-(SP) 
R2,-(SP) 

(SP)*,RO 

R0.5S 

R1 

R2 

(RO)».-(SP) 
3$ 

#'0.(SP) 
4$ 

#*7.(SP) 

4t 

R1 

R2 

R1 

R2 

R1 

R2 

fC7.(SP) 

(SP)».R1 

2$ 

(SP)* 

R1.12(SP) 

R2.$HI0CT 

{SP)*.R2 

(SP)*.R1 

(SP)*.RO 

(SP)» 
(RO) 

0 

,»QUES 
1$ 

0 



;; PROVIDE SPACE FOR THE 
;: INPUT NUMBER 
;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
:;READ AN ASCI 2 LINE 
;:GET ADDRESS OF 15T CHARACTER 
;;AND SAVE IT 
CLEAR DATA WORD 

;. -PICKUP THIS CHARACTER 
;;IF ZERO GET OUT 
;;MAKE SURE THIS CHARACTER 
:;IS AN OCTAL DIGIT 



;;»2 

;;.4 

;;»8 

;;STR1P THE ASCII JUNK 
;:ADD IN THIS DIGIT 
;;LOOP 

CLEAN TERMINATOR FROM STACK 
;;SAVE THE RESULT 

;;POP STACK INTO R2 
;;POP STACK INTO R1 
;;POP STACK INTO RO 
:; RE TURN 

;; CLEAN PARTIAL FROM STACK 

;.'SET A TERMINATOR 

;;TYPE UP THRU THE BAD CHAR. 

;;'•?•• "CR" I "LF" 
;;TRY AGAIN 

::HIGH ORDER BITS GO HERE 



INPUT OCTAL NUMBER ROUTINE 



$ INPUT: MOV 
MOV 
MOV 
MOV 
MOV 



R5,-(SP) 

2CSP),R5 

(R5)*,WHAT 

(R5)*.L0LIM 

(R5)*.HILIM 



SAVE REGISTER R5. 

GET FIRST PARAMETER ADDRESS, 

GET MESSAGE ADDRESS. 

GET LOW LIMIT FOR THE « 

GET HIGH LIMIT FOR THE ». 



CZfcCE WACY11 30a(10S?) 08-JUL-80 08:24 PAGE <.6 



CZKfE.PH 08 


-JUL -80 08:24 


READ AN OCTAL 


NUMBER FROM THE TTY 


SEQ 0045 




(JU5f ••0 


U 1 CJJl 


QU0U54 






/DC^A. LIUCDC 

IR5 ) ♦ ,UHc"C 




GET ADDRESS OF INBUFFER 


cKlyf 


UU5 f 5£ 


1 1 5CT7 


UU0U50 




nuvo 


/ D C \ A 1 no f T c 




GET LOUMASK BITS. 




OOC7CA 
UU5f 50 


1 1 55T7 
1 l£53f 


UUOU J ' 




■iniiD 
BOVB 


IR? ) ADRCNT 




GET « OF «'S TO BE GENERATED. 


cUtt 


UU5 r 0£ 


U 1 U500 


UUUUUc 




nuv 


DC 5 / C D ^ 




SAVE THE RETURN ADDRESS. 


C 1 Uv) 


UU5r 00 






T Ul D1 - 

INLr 1 . 


T VDC 

1 irt 






TYPE THE nESSAGE. 


c 1 U 1 


00^770 
UU5f f U 


nonooo 

UUUUUU 




UU A T - 
WHA 1 : 


. WUKP 


A 

U 






5105 


ftO<?775 


1 t\LLf\L 






Dnnr T 
RDUt 1 






READ OCTAL « FROn KEYBOARD. 


510T 


00^77£ 
UU5f f"i 


051 AT? 
Uc lOdr 


00A0C5 
UUOU 5 £ 




mo 


fCD\ ull IM 




IS IT IN HIGH LIHIT? 


510/. 


UwOwwv 


no ton i 






Su 1 


5t 

£• 




BRANCH IF NO. 




00A005 


051AX7 

U£ lOjr 


OOAO^O 
VUOU7U 




Lrlr 


f CP \ 1 m 1 M 




IS IT MORE THAN LOW LiniT. 




OOAOOA 


00500^ 






Doc 


J9 




BRANCH IF YES. 


5107 


00 AO 10 
UUOU 1 V 


1 0£t01 

1 U**HU 1 


001 XI 5 
UU 1 J 1 £ 




T VPF 

1 I rC 


lOl IP c 
, vUUC 3 




■ TYPE " ? " 


510ft 


OOAOIA 
UwOv 1 


1 O^^OI 

1 UHHU 1 


001 XI X 

UU 1 J 1 J 




1 irc 






• TYPE <CR>,<LF> 


5100 


00A050 


0007A5 

UUU ' 0£ 






0" 


t Ul PI 
INLr 1 




5110 


OOA055 

UUOw££ 


01 T70S 

U 1 3 > U5 


UUOU5«» 


xt- 


nu V 


■nc KC , "5 




• GET BUFFER ADDRESS. 


7111 


OnA05/\ 
UUOU£0 


01 1 A5S 

U 1 1 0£ 5 




• 

t • • 


nuv 






; SAVE THE # IN RIGHT PLACE. 


5115 


OOAOTO 


0A571 A 
UO£ 1 1 0 


00000? 
UUUUU£ 




inn 


MO fCP^ 
WC , \Or ) 




; NEXT SEQUENTIAL NUMBER. 


51 1 T 


OOAOXL 

UUOU 




OOAOS7 




uc LO 


AUnUn 1 




; COUNT BY 1. 


51 1£ 


00A0£0 


001X75 

UU XJIC 






QUE 






; BRANCH IF NOT DONE. 


51 H 
£115 


00A0I5 
UUOU*t£ 


OOS75A 
UU5r £0 






1 3 1 


I CP ^ * 




; POP THE STACK POINTER. 


51 1 A 
Clio 


UUOU**** 


01 7kC\\ 

U 1 £Ov3 






MOU 

nuv 


fCPW B^ 




; POP THE REG. 5 


51 1 7 

C 1 1 f 


OOAO£A 
uuou«»o 


000005 






BT I 

n 1 I 








51 1R 
Clio 


OOAO^i*) 


000000 




1 Ol tM • 
LUL in . 


uoon 

. WUnU 


U 






5110 

C 1 1 T 


00A0<t5 
UUOU 7 £ 


oonooo 




n 1 L i n . 


.WORD 


0 






51 50 


UUOU 5** 


uuuuuu 




UUCDC • 

wncNc • 


.WORD 


0 






5151 

C 1 C 1 


UU0U30 


000 

UUU 




LOBITS: 


.BYTE 


0 






5155 


00A0^7 
UUOU5r 


000 
UUU 




ADRCNT: 


.BYTE 


0 






51 5X 


















2124 










: ADVANCE TO NEXT TEST HANDLER 




2125 


















51 P^ii 

C 1 £0 
















C 1 £ • 


VVUWUw 


01 X716 

«/ 1 J 1 1 O 


001447 


.ADVANCE: 


nov NEXT.(SP) 


; CRUNCH STACK UITH ADDRESSOF SCOPE CALL 


£ 1 £0 


wvOwO** 


00^0X7 


0014^^ 

UU 1 "I"*"* 




CLR 


LOCK 




: RESET TIGHT LOOP ADDRESS 


51 50 

£ 1 Ct 


UUOU t u 


000007 

UUUUU£ 






RTl 






; CHECK TO SEE IF OLD TEST GETS REPEATED 


£ 1 Jv 

51 ^1 

£ I J 1 










;SAVE 


PC OF TEST THAT FAILED AND 


R0-R5 


£ 1 ^£ 










« 








51 

£ 1 J J 


















£ 1 J** 


OOA075 

UUOU ( £ 


01 AAX7 

V 1 OO J ■ 


00000^ 001 4A0 

UUUUUM UUIMOU 


.SAV05: 


nov 


4(SP).SAVPC ;SAVE R7 


(PC) 


£ 1 J7 


















£ 1 Jv 










; SAVE 


R0-R5 






?1 ^7 

£ 1 i^r 
















£ 1 JO 


UUw ' UU 


U 1 VJJi 


0Q177& 

UU 1 £ f 


SV05: 


MOV 


R5,SREG5 


SAVE R5 




£ 1 J~ 


UUO 1 U1 


0104X7 

U 1 w"l J 1 


001777 

UU 1 £ ' £ 




nov 


R4,SREG4 


SAVE R4 




£ 1 ■•V 


UUO 1 1 u 




001770 

UU 1 £ > U 




nov 


R3.SREG5 


SAVE R3 




51^1 

£ 1 •» 1 


OOAI 1^ 

UUO 1 1 *• 


0107X7 

U IU£ jr 


001 7AA 

UU 1 £00 




nov 


R2,SREG2 


•SAVE R2 




51^5 

£ 1 «•£ 


nOAl 50 

UvO 1 £U 


0101X7 

U 1 U 1 J ' 


001 5A£ 

UU 1 £OS 




nov 


RI.IREGI 


•SAVE R1 




£ 


UUO 1 c* 


0100X7 

U 1 UU J ' 


001 7A7 

UU 1 £0£ 




nov 


RO.SREGO 


■SAVE RO 




51 

£ 1 


noAi xo 

UUO 1 3V 


000009 






RTI 


LEAVE. 




£ 1 "I? 


















2U6 










.RESTORE R0-R5 






?U7 


















2U8 


006132 


013700 


001262 


•RE SOS: 


nov 


SREGO.RO 


RESTORE 


RO 


2U9 


006136 


013701 


001264 




nov 


WEG1,R1 


RESTORE 


R1 


2150 


006 U2 


013702 


001266 




nov 


SREG2,R2 


; RE STORE 


R2 


2151 


006U6 


013703 


001270 




nov 


SREG3,R3 


; RESTORE 


R3 



CZ<CE MACYll J0A(10S2) 08-JUL-80 08: 



CZICCE.P11 08 


-JUL-80 08:24 






OAi^l CO 


rtl T7A/ 
U 1 3f U»i 


AA1 070 
OUl Cf C 




OKI 


nn^Li CA 


U1 5( U5 


AA1 07/. 
UUI Cf 4 






UUolOc 


nnnnno 
UQUQUc 






01 cc 










c 1 50 










01 C7 
c 1 5 » 










01 Cft 

C 1 5o 










C 1 5t 


UUO 1 o** 


lO£AOl 
1 U<t<*v 1 


001 111 
UU 15 15 




51 AO 


OAAI 70 
UUO 1 'U 


U 1 UUhC 






C 1 O 1 


00A1 75 
UUO 1 r c 


OIOI^A 

U 1 U 1 MO 






51<^5 
C 1 Oc 


noAi 7^ 

UUO 1 f H 


U 1 u^to 






51 A^ 


00A1 7A 
UUO 1 • o 


OIO^^A 

U 1 UHHO 






C 1 o** 


00A500 

UUOcUU 


01 (\^LK 
U 1 UOhO 






C 1 DO 


OOA505 


01 7A01 
U 1 f OU 1 


oonni 5 

UUUU 1 C 




01 


nOA50A 
UUOcUO 


OA57AA 
UOc > OO 


000005 
UUUUUc 


000012 


C 1 Or 


noA5i^ 

UUOC 1 *• 


01 51 VJ 

U 1 C 1 


006406 
UUOhUO 




51 Aft 


OOA550 

UUOCcU 


1 1 51 17 


006410 
UUO** 1 u 




51 AQ 
C 1 Ot 


OOA55^ 

UUOC£t 


1 151 17 


0064 1 1 

UUO** 1 1 




51 70 


00^5^0 
UUOC ju 


01 11 17 


00641 5 
UUO** 1 c 




51 71 


UUOC JH 


155717 
1 ccr Jf 


000001 


006410 


51 75 


00^5/. 5 

UUO£*tc 


001001 

UU 1 M\JJ 






517^ 


00A5££ 
uuocHs 


045717 

UHC 1 Jl 


1 77400 


006412 


51 7i 


OOA5S5 

UUOcOC 


01 170A 

U t J r Uh 


00641 5 
UUO** 1 c 




51 7"; 

t 1 f 0 


00A5^A 

UUOC 30 


1 1 170^ 


0064 1 n 
UUO** 1 V 




51 7A 
c 1 ' 0 


OOA5A5 
uuococ 


01 5700 

U 1 C ' UU 


01 1 514 
U 1 1 c J** 




51 77 


00A5AA 
uuocoo 


010401 

U 1 UHU J 






51 7ft 


00^570 

UUOC r U 


045701 

UH C ' U J 


1 77770 

1 f r r r V 




51 70 


0OA57^ 
UUOC r H 


065701 

UOC r U J 


oonoAo 




C 1 Ov 


00 A ^00 


1 10150 






51ft1 


OOA'^05 

UvO^UC 


000541 

UUUCH 1 






?1ft5 


006 

vUO Jv** 


006004 
uuouuM 








OOATOA 

UUO JUO 


000741 

UUvC** 1 






51 ft^ 


OOA^IO 

UUO J 1 u 


006004 






51ftS 


00*^15 

UUO^ 1 c 


000541 

UUUC** 1 






C 1 OO 


006^14 

UUO J \ 


006004 






51117 

C 1 O r 


0OAT1 A 

vvO J 1 O 


00S10S 






51M 

c 1 OO 


vvO JC w 


001 165 

Uv 1 ^OC 






5180 

C 1 OT 


0OAT55 
UUO jcc 


015701 

U 1 C r vJ 


01 1 576 




5190 

C 1 TV 


006^56 

vvO JCO 


114051 






2191 


WW J 


105117 


0064 1 0 

WO** » V 




?10? 
C 1 ~c 


UvO J 


WW 1 J f 






C 1 T J 


Ww J 


1 W ^ ' Jf 


0064 1 1 

VVW"* 1 1 




51 9A 

C 1 T«l 


wo JHC 


WW 1 w ^ 






719S 


WOJHH 


11?7?? 

1 I C f C J 


000040 

WW** V 




519^ 

C 1 TO 


uwoj?u 


105117 


0064 1 1 

UUO** 1 1 




5197 

C 1 Tf 


OOA^^^ 
UUvJ?*» 


001 171 

Uv I Jl J 






5198 

C 1 TO 


UvOJ^O 


10501 1 

1 V Jv 1 J 






5199 

t 1 TT 




104401 

1 V*l*t V 1 


01 1576 

U 1 1 C r O 




5500 




nfi5il7 


006406 

vvw**UO 




5501 


wo J « w 


001 51 ? 

WW t J I J 






2202 


006372 


012605 






2203 


006374 


012604 






2204 


006376 


012603 






2205 


006400 


012601 






2206 


006402 


012600 






2207 


006404 


000002 







24 PAGE 47 
READ AN OCTAL 

nov 
nov 

RTI 



H 



NUMBER FROM THE TTV 



SEO 0046 



.CONVR: 
.CNVRT: 



IS: 



2%: 



3S: 



4S: 



5S; 



6S: 



SREG4,k4 
SREG5,R5 



;RESTORE RA 
;RESTORE RS 
.'LEAVE 



.-CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 



TYPE 

NOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

MCVB 

MOVB 

MOV 

CMPB 

BNE 

BIG 

MOV 

MOVB 

MOV 

MOV 

BIG 

ADD 

MOVB 

CLC 

ROR 

CLC 

ROR 

CLC 

ROR 

DEC 

BNE 

MOV 

MOVB 

DECB 

BNE 

TSTB 

BEQ 

MOVB 

DECB 

BNE 

CLRB 

TYPE 

DEC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 



,$CRLf 

RO,-(SP) 

RI.-(SP) 

R3,-(SP) 

R4,-(SP) 

R5.-(SP) 

ai^(SP),R1 

#2,12(SP) 

(RD^.URDCNT 

(R1)*,CHRCNT 

(R1)*,SPACNT 

a(R1)^.BlNWRD 

«3.CHRCNT 

2S 

«177400,BINURD 

BINURD,R4 

CHRCNT.R5 

#TEMP,RO 

R4,R3 

#177770. R3 

«060.R5 

R3,(R0}^ 

R4 

R4 

R4 
R5 
3$ 

IMDATA.RS 

-(R0).(R3)* 

CHRCNT 

4$ 

SPACNT 
6S 

#040, (R3)* 

SPACNT 

5» 

(R3) 

.nOATA 

URDCNT 

IS 

(SP)+,R5 
(SP)*.R4 
(SP)*,R3 
(SP)*.R1 
(SP)*.RO 



I 4 

CZKCt HACrll 50a(1052) 08-JUL-80 08:24 PAGE 48 

CZKCE.P11 08-JUL-80 08:24 READ AN OCTAL NUMBER FROM THE TTV 



SFQ 0047 



2208 

2209 

2210 

2211 

2212 

2215 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

226: 

2262 

2263 



006406 
006410 

006412 



006414 
006416 
006422 
006424 
006426 
006430 
006434 



006436 

006440 
006446 



006450 
006452 



006454 
006456 
006460 
006462 
006464 
006466 
006470 
006472 
006474 
006476 
006500 



000000 
000000 
006411 
000000 



006436 
004414 



005144 
005264 
005564 
004364 
006072 
006132 
007362 
007332 
007400 
007446 
007512 



yRDCNT: 0 
CHRCNT: 0 
SPACNT=CHRCNT*1 
BINURD: 0 



;TRAP DISPATCH SERVICE 
.•ARGUMENT OF TRAP IS EXTRACTED 
:AND USED AS OFFSET TO OBTAIN POINTER 
:T0 SELECTED SUBROUTINE 



.SBTTL TRAP DECODER 



010046 

016600 000002 
005740 
111000 
006300 

016000 006450 
000200 



011646 

016666 000004 000002 
000002 



.••THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAO" INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*G0 TO THAT ROUTINE. 

;;SAVE RO 

;;GET TRAP ADDRESS 
;; BACKUP BY 2 
;;GET RIGHT BYTE OF TRAP 
; .-POSITION FOR INDEXING 
;; INDEX TO TABLE 
;;G0 TO ROUTINE 

;;THIS IS USE TO HANDLE THE "GETPRI" MACRO 



STRAP: nOV 


RO.-(SP) 


HOV 


2<SP).R0 


TST 


-(RO) 


novB 


(RO).RO 


ASL 


RO 


nov 


STRPAD(RO).RO 


RTS 


RO 



STRAP2: NOV 

nov 

RTI 



(SP).-(SP) 
4(SP),2(SP) 



;;MOVE THE PC DOWN 

::novE the psw down 

;:RESTORE THE PSW 



.SBTTL TRAP TABLE 



;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION. 



ROUTINE 

STRPAD: .WORD STRAP2 

STYPE ;;CALL=TYPE 



TRAPO (104401) TTY TYPEOUT ROUTINE 



$RDCHR ; 
SRDLIN ; 
JRDOCT ; 
.SC0P1 ; 
.SAV05 ; 
.RES05 ; 
.HSTCLR ; 
.DELAY i 
.ROHCLK ; 
.DATACLK 
.TIMER i 



;CALL=R0CHR 
;CALL=RDLIN 
;CALL=RDOCT 
:CALL=SC0P1 
;CALL=SAV05 
;CALL=RES05 
;CALL=HSTCLR 
;CALL=OELAY 
;CALL=RO«ClK 
;:CALL 
;CALL=TIMER 



TRAP*2( 104402) 
TRAP«3(104403) 
TRAP^4(104404) 
TRAP*5(104405) 
TRAP«6( 104406) 
TRAP*7(104407) 
TRAP«10(104410) 
TRAP*11(104411) 
TRAPO2(104412) 
:DATACLK TRAP«13 
TRAPtU(104414) 



TTY TYPE 
TTY TYPE 
READ AN 
CALL TO 
CALL TO 
CALL TO 
CALL TO 
CALL TO 
CALL TO 
(104413) 
CALL TO 



IN CHARACTER ROUTINE 
IN STRING ROUTINE 
OCTAL NUMBER FROM TTY 
LOOP ON CURRENT DATA HANDIER 
REGISTER SAVE ROUTINE 
REGISTER RESTORE ROUTINE 
ISSUE A MASTER CLEAR 
DELAY 

CLOCK ROM ONCE 
CALL TO CLOCK DATA 
DE-AY A CLOCK TICK 



CZUCE 


MACYll 


30A(1032) 08- JUL 


-80 08 


:24 PAGE 


49 


J 


CZKCE.PII 08 


-JUL-80 08:24 




TRAP TABLE 




226A 


006502 


005724 








» INPUT 


■ • r Al 1 r I MPliT 


226S 


006504 


006164 








.CONVRT 


::CALL=C0NVRT 


2266 


006506 


006170 








.CNVRT 


:;CALL=CNVRT 


2267 


006510 


006060 








.ADVANCE ::CAL 


2268 
















2269 
















2270 
















2271 












.•ERROR HANDLER 


2272 
















2273 
















2274 


006512 


004737 


011340 




SERROR: 


JSR 


PCCKSUR 


2275 


006516 


032777 


010000 


172514 




BIT 


irsui2.asuR 


2276 


006524 


001406 








BEQ 


XBX 


2277 


006526 


105777 


172516 






TSTB 


asTPs 


2278 


006532 


100003 








BPL 


XBX 


2279 


006534 


112777 


000207 


172510 




novB 


#207.a$TPB 


2280 


006542 


032777 


020000 


172470 


XBX: 


BIT 


«sui3,asuR 


2281 


006550 


001107 








BNE 


HALTS 


2282 


006552 


021637 


001216 






CMP 


(SP).$ERRPC 


2283 


006556 


001404 








BEO 


U 


2284 


006560 


011637 


001216 






MOV 


(SP),»ERRPC 


2285 


006564 


105037 


001203 






CLRB 


SERFLG 


2286 


006570 


104406 






1$: 


SAV05 




2287 


006572 


01 1605 








MOV 


(SP),R5 


2288 


006574 


162705 


A A A A A 

000002 






SUB 


#2.R5 


2289 


006600 


011504 








MOV 


(R5),R4 


2290 


006602 


110437 


001214 






MOVB 


R4.SITEHB 


2291 


006606 


006304 








ASL 


R4 


2292 


AA^ ^ 4 A 

006610 


0^A m e f^t 

061504 








ADD 


(R5),R4 


2293 


00661 2 


A A ^ V A / 

006304 








ASL 


R4 


2294 


006614 


042704 


4 99 A A 4 

177001 






BIC 


#177001 ,R4 


2295 


006620 


A^ t ^ A i 

062 70 'i 


A A 4 P 4 ^ 

001 512 






ADD 


fSERRTB,R4 


2296 


006624 


012437 


A A y 9 / A 

006740 






MOV 


(R4)«,ERRMSG 


2297 


006630 


012437 


A A y 9 C ^ 

006752 






MOV 


(R4)«,0ATAHD 


2298 


006634 


011437 


006764 






MOV 


(R4),DATABP 


2299 


006640 


105737 


AA4 A9 

001203 






TSTB 


SERFLG 


2300 


006644 


001403 








BEQ 


TYPMSG 


2301 


006646 


AA r ^ 

005737 


AA^ ^ A A 

006764 






TST 


DATABP 


2302 


AA^ d f *\ 

006652 


A A 4 A 4 A 

001040 








BNE 


TYPOAT 


V A V 

2303 


A A^ A r M 

006654 


104401 


001313 




TYPnSG: 


TYPE 


.tCRLF 


2304 


AA^ A d 

006660 


4 A i ^ A4 

104401 


A A 4 9 4 9 

001313 






TYPE 


.$CRLF 


2305 


f\f\A AAA 

006664 


005737 


AA4 i i t 

001444 






TST 


LOCK 


2306 


006670 


001402 








BEQ 


IS 


V A^ 

2307 


AA^ A^'S 

006672 


4 A i ^ A4 

104401 


A 4 AA4 A 

010016 






TYPE 


,MASTEK 


2308 


AA^ A ^A 

006676 


4 A J J A 4 

104401 


A 4 AAA J 

010004 




4 m 

1$: 


TYPE 


.MTSTN 


4% V AA 

2309 


AA^ <VAt 

006702 


4 A < i 4 V 

104417 


AA9 4 1 A 

007120 






CNVRT 


.XTSTN 


2310 


AA^ ^A^ 

006706 


4 A i M A4 

104401 


A 4 AA99 

010073 






TYPE 


,MERRPC 


2311 


AA^ ^4 ^ 

006712 


4 AJ #49 

104417 


0071 12 






CNVRT 


.ERTABO 


2312 


006716 


104401 


A A 4 9 4 9 

001313 






TYPE 


.SCRLF 


2313 


AA^ V% t 

006722 


4 4 *W99 

112737 


4 99999 


001203 

WW ■ S> W 




MOVB 


#-1 .SERFLG 


2314 




005 fJf 








TST 


ERRHSG 


?315 


006734 


001402 








BEO 


URKO.FM 


2316 


006736 


104401 








TYPE 




2317 


006740 


000000 






ERRHSG: 


0 




2318 


006742 








yRKO.FH 






2319 


006742 


005737 


006752 






TST 


DATAHD 



SEQ 0048 

TRAP+1 5(10441 5) CALL TO OCTAL # INPUT ROUTINE 

TRAP*16(104416) CALL TO 

TRAP*17(104417) CALL TO 

ADVANCE TRAPi20( 104420) CALL TO ADVANCE TO NEXT TEST 



CHECK FOR SOFT SUR 
BELL ON ERROR? 
BR IF NO BELL 
TTY READY. 

DON'T WAIT IF TTY NOT READY. 
PUSH A BELL AT THE TTY. 
DELETE ERROR PRINT OUT? 
BR IF NO PRINT OUT WANTED. 
WAS THIS ERROR FOUND LAST TIME? 
BR IF YES 
RECORD BEING HERE 
PREPARE HEADER 
SAVE ALL PROC REGISTERS 
GET THE PC OF ERROR 
GET ADDRESS OF TRAP CALL 
;GET ERROR INSTRUCTION 
; COPY ERROR # FOR APT HANDLING 
MULT BY TWO 
DOUBLE IT 
MULT AGAIN 
: CLEAR JUNK 
;GET POINTER 
;GET ERROR MESSAGE 
;GET DATA HEADRER 
;GET DATA TABLE 
;TYPE HEADREER 
;BR IF YES 

;DOES DATA TABLE EXIST? 
;BR IF YES. 



SHOW IT 
TYPE PC. 
SHOW IT 
GIVE A CR/LF 

NO MORE HEADER UNLESS NO DATA TABLE. 
IS THERE AN ERROR MESSAGE? 
BR IF NO. 

TYPE 

ERROR MESSAGE 
DATA HEADER? 



CZtCCE HACYll 30a(10S2> 08-JUL-80 08:2^ PAGE 50 
CZKCE.P11 08-JUL-80 08:24 TRAP TABLE 

2520 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2345 
23A4 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
235A 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2569 
2370 
?371 
2372 
2373 
2374 
2375 



K 4 



SEO 0049 



006746 


001402 








BEQ 


TYPDAT 


006750 


104401 








TYPE 




006752 


000000 






DATAHD: 


0 




006754 


005737 


006764 




TYPDAT: 


TST 


DATABP 


006760 


00U02 








BEQ 


RESREG 


006762 


104416 








CONVRT 




006764 


000000 






DATABP: 


C 




006766 


104407 






RESREG: 


RES05 




006770 


122737 


000001 


001336 


HALTS: 


CHPB 


IAPTENV,SENV 


006776 


001007 








BNE 


5S 


007000 


113737 


001214 


007012 




novB 


SITEnB.6S 


007006 


00A737 


004714 






JSR 


PC.SATY4 


007012 


000000 






6S: 


.WORD 


0 


007014 


000777 






9S: 


BR 


9$ 


007016 


022737 


004070 


000042 


3S: 


CMP 


fSENDAD,a«42 


007024 


001403 








BEQ 


IS 


007026 


005777 


172206 






TST 


asuR 


007032 


100005 








BPL 


EXITER 


007034 


0100A6 






1$: 


PUSHRO 




007036 


016600 


000002 






nov 


2(SP).R0 


007042 


000000 








HALT 




00704A 


012600 








POPRO 




007046 


005237 


001212 




EXITER: 


INC 


SERTTL 


007052 


032777 


000400 


172160 




BIT 


«SU08,aSUR 


007060 


001007 








BNE 


IS 


007062 


032777 


002000 


172150 




BIT 


«suio,asuR 


007070 


001407 








BEQ 


2S 


007072 


013737 


001442 


001206 




nov 


NEXT,SLPADR 


007100 


012706 


001200 




1$: 


MOV 


fSTACK.SP 


0071 OA 


000177 


172076 






JHP 


aSLPADR 


007110 


000002 






2$: 


RTI 




007112 


000001 






ERTABO: 


1 


6.2 


007114 


006 


002 






.BYTE 


007116 


001460 








SAVPC 




007120 


000001 






XTSTM: 


1 


3,2 


007122 


003 


002 






.BYTE 


007124 


001202 








STSTNM 












.-ENTER HERE ON POUER 



BR IF NO 
TYPE 

DATA HEADER 
DATA TABLE? 
BR IF NO. 
SHOW 

DATA TABLE 
RESTORE PROC REGISTERS 
IS APT RUNNING ? 
SKIP APT CALL IF NOT. 
COPY ERROR f. 
CALL APT SERVICES. 
ERROR « GOES HERE. 
LOCK HERE. 

IF ACT-11 AUTOMATIC MODE. HALT!! 

HALT ON ERROR? 

BR IF NO HALT ON ERROR 

SAVE RO 

SHOW ERROR PC IN DATA LIGHTS 

HALT 

GET RO 

UPDATE ERROR COUNT 
GOTO TOP OF TEST? 
BR IF YES 
GOTO NEXT TEST? 
BR IF NO 

SET FOR NEXT TEST 
RESET SP 

GOTO SPECIFIED TEST 
SLPADR 



FAILURE 



.SBTTL POWER DOUN AND UP ROUTINES 



007126 
007134 
00/142 
0071 4A 
007146 
007150 
007152 
007154 

007156 
007162 
007166 
0071 74 



012737 007316 000024 

012737 000340 000026 

010046 

010146 

010246 

010346 

010446 

010546 

017746 172056 
010637 007322 
012737 007200 000024 
000000 



.-POWER DOWN ROUTINE 



SPWRDN: 



NOV 

nov 

MOV 

nov 

MOV 
MOV 
MOV 

nov 

MOV 

MOV 
MOV 
HALT 



niLLUP.atPWRVEC 
#340.a«PWRVEC>2 
RO.-(SP) 
RI.-(SP) 
R2,-(SP) 
R3,-(SP) 
R4.-(SP) 
R5,-(SP) 
aSWR.-CSP) 
SP.SSAVR6 
ftPWRUP.aiPWRVEC 



;.-SET FOR FAST UP 
;PRI0:7 

:PUSH RO ON STACK 
;PUSH R1 ON STACK 
:PUSH R2 ON STACK 
,-PUSH R5 ON STACK 
.-PUSH RA OK STACK 
;PUSH R3 ON STACK 
.-PUSH aSWR ON STACK 
-SA''E SP 
;;SET UP VECTOR 



CZKCE 


HACV11 


30a(1052 


; 08-Jl 


CZKCE.Pn 08 


-JUL-80 08:24 


2576 


00^176 


000776 




2377 








2378 








2379 








2380 


007200 


012737 


007316 


2381 


007206 


01 3706 


007322 


2382 


007212 


005037 


007322 


2383 


007216 


005237 


007322 


2384 


007222 


001375 




238S 


007224 


104401 


007562 


2386 


007230 


104417 


007324 


2387 


007234 


105037 


001203 


2388 


007240 


005037 


001216 


2389 


007244 


013701 


002066 


2390 


007250 


005011 




2391 


007252 


104410 




2392 


007254 


012677 


171760 


2393 


007260 


012605 




2394 


007262 


012604 




2395 


007264 


012693 




2396 


007266 


012602 




2397 


007270 


012601 




2398 


007272 


012600 




2399 


007274 


012737 


007126 


2400 


007302 


012737 


000340 


2401 


007310 


104401 




2402 


007312 


007562 




2403 


007314 


000002 




2404 


007316 


000000 




240S 


007320 


000776 




2406 


007322 


000000 




2407 








2408 


007324 


000001 




2409 


007326 


003 


002 


2410 


007330 


001202 




2411 








2412 


007332 






2413 


007332 


012777 


000020 


2414 


007340 


104412 




2415 


007342 


121111 




2416 


007344 






2417 


007344 


104412 




2418 


007346 


121224 




2419 


007350 


032777 


000020 


2420 


007356 


001772 




2421 


007360 


000002 




2422 








2423 


007362 






2424 


007362 


152777 


000100 


2425 


007370 


142777 


000300 


2426 


007376 


000002 




2427 








2428 


007400 






2429 


007400 


152777 


000002 


2430 


007406 


013677 


172464 


2431 


007412 


062746 


000002 
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POWER DOVN AND UP ROUTINES 

BR .-2 



L 4 



SEO 0050 



;;HAN6 UP 



000024 



: POWER 
tPWRUP: 



1$: 



000024 
000026 



172534 



172516 



172500 
172472 



172462 



SPWRMG: 

SILLUP: 

$SAVR6: 

PFTAB: 
.BVTE 

.DELAY: 
IS: 



UP ROUT 
HOV 

nov 

CLR 
INC 
BNE 
TYPE 
CNVRT 
CLRB 
CLR 

nov 

CLR 

HSTCLR 
MOV 
HOV 
HOV 
HOV 
HOV 
HOV 
HOV 
HOV 
HOV 
TYPE 
.WORD 
RTI 
HALT 
BR 
0 

1 

3.2 

STSTNM 



HOV 

ROMCLK 
121111 

ROHCLK 

121224 

BIT 

BEQ 

RTI 



INE 

fSlLLUP.ifPWRVEC 
$SAVR6,SP 
SSAVR6 
$SAVR6 
1$ 

.HPFAIL 
,PfTAB 
SERFLG 
SERRPC 
KHCSR.R1 
(R1) 

(SP)>,aSWR 
(SP)*,R5 
(SP)+.R4 
(SP)*.R3 
(SP)*,R2 
(SP)*.R1 
{SP)*,RO 

fSPWRDN.afPURVEC 
f340,a«PWRVEC>2 

HPf AIL 



.HSTCLR: 



61 SB 
BICB 
RTI 



.ROHCLK: 



BIS6 

HOV 

ADD 



;SET FOR FAST DOWN 
;;6ET SP 

;;WAIT LOOP FOR THE TTY 
;;WAIT FOR THE INC 
:;0F WORD 



.•CLEAR ERROR FLAG. 
; CLEAR LAST ERROR PC 
; RESTORE DEVICE ADDRESS. 
: CLEAR THE CSR. 



;;POP 
;:POP 
;;POP 
;;POP 
;;POP 
;;POP 
;;POP 
;;SET 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



aswR 

R5 
R4 
R3 
R2 
R1 
RO 



UP THE POWER DOWN VECTOR 
' *PRI0:7 
■•REPORT THE POWER FAILURE 
;;POWER FAIL HESSAGE POINTER 

;;THE POWER UP SEQUENCE WAS STARTFD 
:; BEFORE THE POWER DOWN WAS COHPLETE 
;;PUT THE SP HERE 



l20,aKHPO4 



IBIT4,aKMP04 
IS 



;NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 
.•POKE CLOCK DELAY BIT 

;NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 
;P0RT4 IBUS*11 
;IS CLOCK BIT SET? 
:BR IF NO 



IBIT6«aKHCSRH ;SET HASTER CLEAR 
#BIT6!BIT7.aicnCSRH .CLEAR HASTER CLEAR AND RUN 
.-RETURN 



fBlTl.aKHCSRH 

a(SP)»,aKHP06 

#2.-(SP) 



SE^ ROHI 

LOAD INSTRUCTION IN SEL6 
ADJUST STACK 



CZKCE 


HACY11 


50* (1032) 08-JUL-80 08 


24 PAGE 


52 


CZKCE.PII 08 


-JUL-80 


08:24 




POVER DOWN AND 


2452 


00^416 


032777 


000100 


171614 




BIT 


2433 


007424 


001401 








BEQ 


2434 


0O74Z6 


000000 




172432 




HALT 


2435 


007430 

WW ' ~ 


152777 


000003 


1$: 


Bise 


2436 


007436 

WW ■ ~ 


142777 


000007 


172424 




BICB 


2457 


007444 


000002 








RTI 


2458 














2439 


007446 








.DATACLK: 


2440 


007446 


013637 


011234 






nUV 


2441 


007452 


062746 


A A A A A A 

000002 






Ann 


2442 


007456 


152777 


A A A A A A 

000020 


4 ^ A / AJ 

1 72404 




PI 


2443 


007464 


027777 


4 ^A 

172376 


4 ^A V 

1 72374 




PMP 

Lrlr 


2444 


007472 


142777 


A A A A A A 

000020 


4 ^A WA 

1 72370 




ni rn 


2445 


007500 


005337 


011234 






nc t 


2446 


007504 


001 364 








Que 


2447 


007506 


000002 








DT t 


2448 


007510 


000001 










2449 














2450 


007512 








r TMca • 

. 1 incn . 




2451 


007512 


013637 


011234 






NOV 


2452 


007516 


062746 


A A A AAA 

000002 






ADR 


2453 


007522 












2454 


007522 


104412 








RHMri K 


2455 


007524 


02 i 364 








\jC 1 JwH 


2456 


007526 


032777 


A A A A A ^ 

000002 


4 ■V'^ 9 i A 

172340 




RI T 
Dl 1 


2457 


007534 


001 772 








RFQ 


2458 


007536 










2459 


007536 


104412 










2460 


007540 


021364 








021364 


2461 


007542 


032777 


000002 


172324 




BIT 


2462 


007550 


001372 










2463 


007552 


005337 


A4 4 A T ^ 

011234 






DEC 

WU V 


2464 


007556 


001361 










2465 


007S60 


A A A A A 

000002 








RTI 


2466 
2467 


007562 


A ^ A t A A 

050200 


Ar 4 4 A 9 

051127 


A i V A / A 

043040 


MPFAIL • 


ASCIZ 


(2) 


007620 


042600 


A i A 4 4 Z 

042116 


nC AA/ A 

050040 




ASCIZ 


(2) 


007643 


A A 

200 


AAA 4 A A 

000122 






ASCIZ 


(2) 


007646 


A M ^ A A 

047200 


A A A 4 4 Y 

020117 


Ai A C Ai 

042504 


HFRR2* 


ASCIZ 


(2) 


007673 


<\ A A 

200 


A/ Y4 4 4 

0471 1 1 


AC AT ^ T 

052523 


HFRR3- 


ASCIZ 


(2) 


007717 


^ A A 

200 


Ai 4 1 

047514 


Ai C CAT 

045503 


Ml QCK ' 


ASCIZ 


(2) 


007746 


Af 4 PAY 

051503 


A VC 4 A A 

035122 


AAAAy A 

00004 U 


nCSRX: 


.ASCIZ 


(2) 


007754 


042526 


A 4 AV 

035103 


AAAA/ A 

000040 


nVECX: 


.ASCIZ 


(2) 


007762 


040520 


Af 4 f A V 

051523 


AC i C AC 

051505 


PtPASSX : 


.ASCI2 


(2) 


007773 


la Ar 

105 


AP 4 4 A 

051122 


AP 4 4 4 Y 

051117 


NERRX: 


.ASCIZ 


(2) 


010004 


A ^ A^ t i 

042524 


A 4 A V 

052123 


Ai TAi A 

047040 


mSTN: 


.ASCIZ 


(2) 


010016 


A A A A ^ A 

000052 






MASTEK: 


.ASCIZ 


(2) 


010020 


051600 


A f A4 Af 

052105 


AC 4 i i A 

051440 


NNEU: 


.ASCIZ 


(i) 


010073 


A AA 

120 


A V r 4 A V 

035103 


AAAA/ A 

000040 


HERRPC : 


.ASCIZ 


(2) 


010100 


A A A A A A 

020200 


A A A A i A 

020040 


aaaa/ a 

020040 


XHEAD: 


.ASCII 


(2) 


010137 


200 


aaaa/ a 

020040 


AAAA/ A 

020040 




.ASCII 


(2) 


010176 




ACAAAA 
U5UU*tU 


UcU lU^ 




.ASCII 


(2) 


010250 


026600 


026455 


026455 




.ASCIZ 


(2) 


010324 


044200 


053517 


046440 


NUH: 


.ASCIZ 


(2) 


010364 


041600 


051123 


040440 


CSR: 


.ASCIZ 


(2) 


010402 


053200 


041505 


047524 


VEC: 


.ASCIZ 



n 4 

JP ROUTINES SEO 0051 

«SW06,aSWR .-HALT IF SU06 =1 

IS ;BR IF SW06 =0 

.-HALT BEFORE CLOCKING INSTRUCTION 
#BIT1 '.BITO.iKHCSRH jCLOCK INSTRUCTION 
#BIT2'.B1T1 iBITO.aiCHCSRH ;CLEAR ROHO. ROMI. STEP 



a(SP)*,TE«P 

#2,-(SP) 

«BIT4,aKnCSRH 

BKMCSR^aiCMCSR 

#BIT4.aKHCSRH 

TEMP 

U 



;PUT TICK COUNT IN TEMP 

.-ADJUST STACK 

;SET STEP LU 

:UASTE TINE 

; CLEAR STEP LU 

;DEC TICK COUNT 

:BR IF NOT DONE 

:RETURN 



aiSP)*.TEHP ;HOVE COUNT TO TEMP 
#2.-(SP) .-ADJUST STACK 

;NEXT WORD IS INSTRUCTION. ROHCLK PC=5504 
;P0RT4 IBUS* RE611 

#2,aKnpo4 :is pgH clock bit clear? 

It :BR IF YES 

.-NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 

;P0RT4 IBUS* RE611 
f2.aK«P04 ;IS PGfl CLOCK BIT SET? 

2$ ;BR IF YES 

TEMP ;DEC COUNT 

1$ :BR IF NOT DONE 

.•RETURN 

<200>/PUR FAILED. RESTART AT TEST / 
<200>/EN0 PASS CZCKEB / 
<200>/R/ 

<200>/M0 DEVICES PRESENT./ 
<200>/INSUFFICIENT DATA!/ 
<200>/LOCK ON SELECTED TEST/ 

/CSR: / 
/VEC: / 
/PASSES: / 
/ERRORS: / 
/TEST NO: / 
/•/ 

<200>/SET SWITCH REG TO KMCII'S DESIRED ACTIVE./ 
/PC: / 
<200>/ 
<200>/ 

<200>/ PC CSR STAT1 STAT2 STAT5/ 

<200>/ I 

<200>/H0W MANY KMCII'S TO BE TESTED?/ 
<200>/CSR ADDRESS?/ 
<200>/VECTOR ADDRESS?/ 



NAP OF KNC11 STATUS/ 

/ 

SR STAT1 STAT2 



CZrCE HACY11 50A(1052) 08-JUL-80 
C2ICCE.P11 08-JUL-80 08:24 
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POWER DOWN AND UP ROUTINES 



N 4 



(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
2466 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2460 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 



010423 
010462 
010574 
010660 

010721 
010757 
011017 
011057 
011110 
011155 
011176 

011206 
011210 
011212 
011214 
011216 
011220 
011222 
011224 
011226 
011230 
011232 



011234 
011276 



200 
053600 
053600 
052200 

200 
200 
200 
200 

100200 
200 

024040 

000005 

006 
001276 

006 
001300 

006 
001302 

006 
001304 

006 
001306 



000000 
011276 
000000 
011340 



051102 
044510 
044510 
050131 

053523 
053523 
051511 
047516 
046513 
054105 
046513 



003 
003 
003 
003 
002 



050040 PRIO 

044103 HODU 

044103 MV35 
020105 



052111 
052111 
052040 
042040 
030503 
042520 
024503 



LINE: 

BM' 

CONN: 

NOACT: 

CONERR: 

CNERR: 

.EVEN 
XSTATQ: 



.EVEN 



TEMP: 
.=.♦40 
nOATA: 
.=.♦40 



.ASCIZ 
.ASCIZ 
.ASCII 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

5 

.BYTE 
STNPO 
.BYTE 
STHP1 
.BYTE 
$THP2 
.BYTE 
»THP3 
.BYTE 
STMP4 



PC: / 



<200>/BR PRIORITY LEVEL? (4.5.6,7)?/ 

<200>/WHlCH LINE UNIT? IF NONE TYPE "H", IF M8201 TYPE "1". 
<200>/WHICM HOOEH TYPE, TYPE "D" FOR KMC11-0A (RS232C).OR/ 
<200>/TYPE 'V FOR KHCll-FA (V.35) ? / 

<200>/$WITCH PACfl (DDCNP LINE #>?/ 
<200>/SUlTCH PAC«2 (BM873 BOOT ADD)?/ 
<200>/I$ THE LOOP BACK CONNECTOR ON?/ 
<200>/N0 DEVICES ARE SELECTED/ 
<200><200>/KNCl1 AT NONSTANDARD ADDRESS 
<200>/EXPECTED FOUND/ 
/ (KMC) / 



6.3 
6.3 
6.3 
6.3 
6.2 



SEO 0052 



IF H8202 TYP 



.'BUFFERS FOR INPUT-OUTPUT 

0 

0 



; ROUTINE USED TO CHANGE SOFTWARE SWITCH 
.■REGISTER USING THE CONSOLE TERMINAL 



011340 


022737 


000176 


001240 


CKSWR: 


CMP 


fSWREG.SWR 


011346 


001075 








BNE 


CKSWR5 


011350 


132737 


000001 


001336 




BITB 


«1 .tENV 


011356 


001071 








BNE 


CKSWR5 


011360 


022777 


000007 


167660 




CMP 


«7,aSTKB 


011366 


00U04 








BEQ 


It 


011370 


022777 


000207 


167650 




CMP 


«207,atTKB 


011376 


001061 








BNE 


CKSWRS 


011400 


010246 






IS: 


MOV 


R2,-(SP) 


011402 


010346 








MOV 


R3,-(SP) 


011404 


010446 








MOV 


R4 -(SP) 
f-1.SWFL6 


011406 


012737 


177777 


011544 




MOV 


011414 


005002 






CKSWR1 : 


CLR 


R2 


011416 


012704 








MOV 


#-1,R4 


011422 


104401 


005541 






TYPE 


.tHSWR 


011426 


104417 






CKSWR2: 


CNVRT 




011450 


011600 








SOFTSW 




011432 


104401 


005552 




CKSWR3: 


TYPE 


.SHNEW 



:IS THE SOFT SUR BEING USED? 
* BR I F NO 

■ IS IT RUNNING UNDER APT? 
; EXIT IF YES. 

:WAS CTRL G TYPED? (7 BIT ASCII) 
'BR IF YES 

!WAS CTRL G TYPED? (8 BIT ASCII) 
.BR IF NO 
: STORE R2 
; STORE R3 
; STORE R4 

.-SET SOFT TYPE OUT FLAG 
; CLEAR NEW SWR CONTENTS 
:SET FLAG TO ALL ONES 
.TYPE "SWR= " 
;TYPE OUT PRESENT CONTENTS 
;0F SOFT SWITCH REGISTER 
;TYPE '>IEW? " 



(ZKCE MACrn 3CA(10S2> 08-JUL-60 06:24 PAGE 54 

PCyER DOIM AND 

CKSUR4: JSR 
CUP 
BEQ 
VHP 
BEQ 
CUP 
BEO 
C«P 
BEO 
CLR 
BIC 
ASL 
ASL 
ASL 
BIS 
BR 

nov 

TST 
BME 
HOV 
CLR 
MOV 

nov 

MOV 

CKSUR5: RTS 

SUFL6: 0 

INCHAR: TSTB 
BPL 
HOV 
TSTB 
BPL 

nov 

BIC 
RTS 

SOFTSU: 1 

.BYTE 
SURE 6 



CZKCE.PII 


08- 


-JUL-80 08:24 




01 


1436 


004737 


011546 




01 


i442 


022703 


000015 


2512 


01 




001424 




2513 


01 


U50 


022703 


000012 


2514 


01 




001416 




2515 


01 


1 y CI. 

i45o 


022703 


000025 


2516 


ov 


1462 


001754 




2517 


01 


\% 


022703 


000007 


2518 


01 




001 762 




2519 


ov 


1472 


005004 


177770 


<!5^0 


01 




042703 


2521 


01 




006302 




2522 


01 




006302 




2523 


ov 


1504 


006302 




2524 


ov 




050302 




2525 


01 


1 CIA 

1 510 


000752 




2526 


01 


512 


012766 


002402 


2527 


01 


1 C OA 

1520 


005704 




2528 


01 


1 coo 


001002 


167510 


2529 


01 


1 C 0/. 


010277 


2550 


01 


1 CTA 

1 550 


005037 


011544 


2531 


01 


1 CTA 


012604 




2532 


01 


1 CTiL 

1530 


012603 




2533 


01 


1540 


012602 




2534 


01 


1542 


000207 




2535 










2536 


ov 


1 C/ i 

I54«» 


000000 




2537 
2538 


ov 


5hO 


105777 


167472 


2539 


ov 


ceo 
55i 


100375 




2540 


01 


j5*» 


017703 


167466 


2541 


ov 


56U 


105777 


167464 


2542 


ov 


J 0*1 


100375 




2543 


ov 


500 


010377 


167460 


2544 


ov 


C70 


042703 


000200 


2545 


01 


1 C7A 


000207 




2546 










2547 


ov 


600 


000001 




2548 


01 


1602 


006 


002 


2549 


01 


1604 


000176 





000006 4$: 
5$: 



6t: 



J 

I 



B 5 



UP ROUTINES 

PC.INCNAR 

f1§.R3 

5S 

#12. R3 
4S 

#25. R3 

CKSWR1 

#7.R5 

CKSUR4 

R4 

#177770.R3 

R2 

R2 

R2 

R3.R2 
CKSUR4 

#. START. 6(SP) 

R4 

6t 

R2,aSWR 

SUFLG 

(SP)*.R4 

(SP)*,R3 

(SP)».R2 

PC 



SEQ 0053 



GET RESPONSE 

WAS IT A CR? 

BR IF YES 

WAS IT A LF? 

BR IF YES 

WAS IT CTRL U? 

BR IF YES(START OVER) 

IF CNTL G 6'T NEXT CHAR 

IT MUST BE A DIGIT SO CLR FLAG 
ONLY 0-7 ARE LEGAL SO MASK OFF BITS 
SHIFT R2 3 TIMES 



ADD LAST DIGIT 

GET NEXT CHARACTER 

LF WAS TYPED SO GO TO START 

IS FLAG CLEAR? 

IF NOT DON'T CHANGE SOFT SWR 

IF YES THEN WRITE NEW CONTENTS TO SOFT SWR 

CLEAR TYPEOUT FLAG 

RESTORE R4 

RESTORE R3 

RESTORE R2 

RETURN 



atTKS 
.-4 

a$TKB.R3 

a$TPS 

.-4 

R3,a$TPB 
#BIT7.R3 
PC 



6.2 
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CZKCt.Pn 08- JUL-80 08:24 POVER DOUN AND UP ROUTINES 



C 5 



SEO 0054 



2550 

2551 

2552 

2555 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 



011606 
011612 
011614 
011620 
011622 
011624 
011626 
011632 
011636 
011644 
011652 
011660 
011662 
011670 
011676 
011704 
011706 
011712 
011716 
011722 
011726 
011734 
011740 
01 1 744 
011750 
011754 
011760 
011764 
011772 
011776 
012004 
012010 
012016 
012022 
012030 

012034 
012042 
012046 
012054 
012060 
012066 

012072 
012100 
012102 
012102 



0057:7 
00100'* 
104401 
000000 
000776 
000241 
006137 
005537 
062737 
062737 
022737 
001006 
012737 
012737 
033737 
001747 
013700 
013702 
012037 
011037 
042737 
012037 
012037 
012037 
012237 
012237 
012700 
013737 
005237 
013737 
005237 
013737 
060037 
013737 
060037 

013737 
060037 
013737 
060037 
013737 
060037 

032737 
001447 



00U70 
011057 



001500 
001500 
000004 
000010 
002300 

002100 
002302 
001500 

001502 
001504 
002066 
002056 
177000 
002050 
002052 
002054 
001324 
001212 
000002 
002066 
002070 
002070 
002072 
002072 
002074 
002074 
002076 

002056 
002060 
002060 
002062 
002062 
002064 



002070 
002072 
002074 
002076 

002060 
002062 
002064 



C^CLE! 



1$: 



001504 
001502 
001502 

001502 
001504 
001470 2S: 



002056 



ROUTINE USED TO "CYCLE" THROUGH UP TO 16 KMCIVS 

THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 

AND RUNS THE SPECIFIED KHCITS. THIS ROUTINE tHUST* 

BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 

SETUP NECESSARY. 



000002 001446 



005737 000042 



4S: 



TST 

BNE 

TYPE 

HALT 

BR 

CLC 

ROL 

ADC 

ADD 

ADD 

CHP 

BNE 

MOV 

nov 

BIT 
BEQ 

nov 

NOV 

nov 
nov 

BIC 

nov 
nov 
nov 
nov 
nov 
nov 
nov 

INC 

nov 

INC 

nov 

ADD 

nov 

ADD 

nov 

ADD 

nov 

ADD 

nov 

ADD 

BIT 
BEQ 

TST 



KNACTV :ARE ANY KMCll'S TO BE TESTED? 

IS ;BR IF OK. 

.MOACT ;N0 KnCll'S SELECTED!! 

.•STOP THE SHOW. 
.-2 ;DISQUAl1FY CONT. SU. 

;CLEAR PROC. CARRY BIT. 
RUN ; UPDATE POINTER 

RUN ; CATCH CARRY FROn RUN 

#4. MILK ;UPDATE POINTER 

#10, CREAM .-UPDATE ADDRESS POINTER. 



#Kn.HAP*200,CREAH 



2S 

«Kn.HAP,CREAn 
fCNT.HAP.niLK 
RUN.KMACTV 
1$ 

CREAM, RO 

niLIC.R2 

{RO) + .ICMCSR 

(RO),ICMRVEC 

#1 77000, KMRVEC 

(R0)+.STAT1 

(R0)+,STAT2 

(R0)*.STAT3 

(R2)>,tPASS 

{R2)*.$ERTTL 

f2,R0 

KMCSR,KMCSRH 
KMCSRH 
KMCSRH,KMCTL 
KMCTL 

ICMCTL.ICMP04 
RO,KMP04 
KMP04,ICMP06 
R0,ICMP06 

KMRVEC, KMRLVL 

RO,KMRLVL 

KMRLVL,KMTVEC 

RO,KMTVEC 

KMTVECKMTLVL 

RO.KMTLVL 

«SU01,STRTSU 
7$ 

a#42 



;KEEP GOING; NOT ALL TESTED FOR. 
:RESET ADDRESS POINTER. 
: RESET PASS COUNT POINTER 
;1S THIS ONE ACTIVE? 
* BR IF NO 

•GET ADDRESS POINTER 

.-GET PASS COUNT POINTER 

;LOAD SYSTEM CTRL. REG 

.•LOAD VECTOR 

;CLCAR UNWANTED BITS 

;LOAD STATl 

;LOAD STAT2 

;LOAD STAT3 

.•LOAD PASS COUNT 

;LOAD ERROR COUNT 

;SAVE CORE THIS WAY! 



;PTY LVL 
■TX VEC 
;TX LVL 



;IS TEST NO. SELECTED 
;BR IF NO 

;RUNNING IN AUTO MUDE? 
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D 5 



SEO OOSS 



2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2655 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 



012106 
012110 
012114 
012116 
012120 
012122 
012124 
012126 
012127 
012150 
012154 
012156 
012140 
012142 
012150 
012152 
012160 
012162 
012166 
012172 
012200 
012202 
012204 
012210 
012212 
012216 

012220 
012226 
012252 



012256 
012256 
012240 
012244 
012246 
012252 
012254 
012260 
012264 
012270 
012276 
012300 
012504 
012512 
012514 
012516 



001044 
104401 
104415 
010004 
000001 
001000 
001202 
000 
001 
012700 
022710 
012757 
001020 
025760 
001014 
022760 
001010 
010057 
104401 
042757 
000412 
005720 
020027 
001551 
104401 
000751 

012737 
013701 
000177 



000005 
012702 
005022 
022702 
001374 
005057 
012702 
005057 
052757 
001002 
000137 
012757 
104415 
010524 
000001 



001513 



014140 

001202 000002 
001202 000004 



001206 
007643 
000002 



027716 
001312 



014140 
002066 
166750 



001446 



001206 





dNc 


7« 
19 


.CD IE VCC 
, Dn 1 r T C J 




T VDC 

1 Yrt 








f UDl IT 








nTSTN 
i 








1 

1 AAA 
10UU 














Q T C 

.Bi It 


A 






DVTC 




HTCTl on 

IT 1 3 1 1 , nU 






MAW 




cc . 


rMD 

tBr 


\r\, / ▼ , \K\H 




MAI/ 










0> 


■RR IF NOT ^AMF 




rMD 










0* 


:BR IF NO 




mo 


■ • 1 3 1 fin .s VnU/ 


• I^ 1 A^T unRD Of* 




tiNt 




•RR IF NO 




MAU 

nuv 




'IT I^ A 1 FGAl TF^T SO DO 




T VDC 


MR 






BIC 


fSWOI .STRTSU 






BR 


8S 


•POP RO 


• 

o»: 


T CT 


t DAI * 


tnr 


DA JfTI iCT^in 


•IT PNH VFT^ 






5S 


:BR IF NO 




TYPE 


,SQUES 


;YES ILLEGAL TEST NO. 




BR 


4$ 


:TRY AGAIN 


7S: 


MOV 


fTST1,$LPADR 


: PREPARE SLPADR ADDRESS 


8S: 


nov 


KNCSR,R1 


:R1 = BASE KHCll ADDRESS 


JHP 


atLPADR 


;60 START TESTING. 



002100 

002500 

001472 
002100 
001470 
000001 

012740 
000001 



001446 



001306 



;R0UTINE USED TO "AUTO SIZE" THE KMC11 
'CSR AND VECTOR 

•NOTE: THE CSR'hAY BE ANY WHERE IN THE FLOATING 
: ADDRESS RANGE (160000:164000) 

AND THE VECTOR MAY BE ANY WHERE IN THE 
FLOATING VECIOR RANGE (500:770) 



.•INSURE A BUS INIT. 
.•LOAD HAP POINTER. 
:ZERO ENTIRE HAP 
:ALL DONE? 
;BR IF NO 

;SET OCTAL NUHBER OF KHCIVS TO 0 

.•R2 POINTS TO KHC HAP 

;CLEAR ACTIVE 

.-QUESTIONS? 

'BR IF YES 

•IF NO SKIP QUESTIONS 
; START WITH 1 



• 

AUTO. SIZE: 




RESET 




CSRMAP: HOV 


«Kn.MAP.R2 


1$: CLR 


(R2)* 


CHP 


flCH.END,R2 


BNE 


It 


CLR 


KHNUn 


HOV 


fKn.MAP.R2 


CLR 


KHACTV 


BIT 


fSWOO.STRTSW 


BNE 


.♦6 


JHP 


7t 


HOV 


f1,»TMP4 


INPUT 




Nun 

1 





CZKCE 




50A(1052) 08-JUL-80 n8:24 PAGE 57 


C7KCE.P11 08 


-JUL-80 08:24 POWER 


nnufti Attn 


2662 


012520 


000020 




• 0. 


2665 


012522 


C01502 






2664 


012524 


000 




PVTF 


266S 


012525 


001 






2666 


012526 


015757 


001502 001472 




2667 


012554 


104401 


001513 12$: 


T VPP 


2668 


012540 


104416 






2669 


012542 


015572 




liuiru 


2670 


012544 


005257 


001506 


1 "L 


2671 


01 2550 


104415 




INPUT 


2672 


012552 


010564 




I. 


2675 


012554 


160000 




I Uvvww 


2674 


012556 


164000 




1 0*»wvv 


2675 


012560 


001504 




9 1 rlr J 


2676 


012562 


000 




RVTF 


2677 


012565 


001 




RVTF 

• OTIC 


2678 


012564 


015722 


001504 


MOV 


2679 


012570 


104415 




INPUT 


2680 


012572 


010402 






2681 


012574 


000000 




0 


2682 


012576 


000776 




77A 


2685 


012400 


001504 




9 1 nr J 


2684 


012402 


000 




RVTF 


2685 


012405 


001 




RVTF 


2686 


012404 


015712 


001 504 




2687 


012410 


104401 


10S: 


TYPF 


2688 


012412 


010425 




PR TO 


2689 


012414 


004757 


015664 


l^R 


2690 


012420 


022705 


000024 


TMP 


2691 


012424 


101014 




RHI 
on A 


2692 


012426 


022705 


000027 


CMP 


2695 


012452 


105411 






2694 


012454 


012704 


000011 




2695 


012440 


006505 




ASL 


2696 


012442 


005504 




DEC 


2697 


012444 


001575 






2698 


012446 


042705 


170777 


BIC 


2699 


012452 


050312 






2700 


012454 


000405 




BR 


2701 


012456 


104401 


50$: 


TYPE 


2702 


012460 


001512 






2705 


012462 


000752 




BR 


2704 


012464 




8$: 




2705 


012464 




9$: 




2706 


012464 




16$: 




2707 










2708 


012464 


104401 




TVPE 


2709 


012466 


010462 






2710 


012470 


004737 


015664 


JSR 


2711 


012474 


022705 


000021 


CMP 


2712 


012500 


00141 7 




RFC 


2715 


012502 


022705 


000022 


CMP 


2714 


012506 


001412 




BEQ 


2715 


012510 


02J703 


000116 


CMP 


2716 


012514 


001405 




BEO 


2717 


012516 


104401 




TYPE 



E 5 



SFO 0056 



0 
1 

$TMP2,ICMNUM 
.$CRlF 



STMP4 



0 
1 

$TMP5.(R2)* 



0 
1 

$THP5.(R2) 



PC-INTTY 
#24. R5 
50$ 

#27, R5 
50$ 

#11, R4 
R5 
R4 
.-4 

#170777, R5 

R3,(R2) 

8$ 



10$ 



PCINTTY 

#21,R5 

50$ 

#22, R5 
51$ 

#116, R5 
52$ 



:KMNUM = HOW MANY 

.■TYPE WHICH KMC IS BEING DONE 
:$TMP4 IS WHICH KMC 



.•STORE CSR IN MAP 



; STORE VECTOR IN MAP 

ASK WHAT BR LEVEL 
GET RESPONSE 

BR IF LESS THAN 4 

BR IF GREATER THAN 7 

R4 NUMBER OF SHIFTS 

SHIFT R3 LEFT 

DEC SHIFT COUNT 

BR IF NOT DONE 

BIC UNWANTED BITS 

PUT BR LEVEL IN STATUS MAP 

CONTINUE 

;RESPONSE IS OUT OF LIMITS 
:TRY AGAIN 



;ASK WHICH LINE UNIT 
.GET REPLY 
« ' 

;"2" 
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SEO 00S7 



2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2745 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

?769 

2770 

277^ 

2772 

2773 



012520 
012522 
01252'- 
012530 
012532 
012534 
012540 
012542 
012544 
012550 
012554 
012556 
012562 
012564 
012566 
012570 
012572 
012576 
012604 
012606 

012606 
012610 
012612 
012616 
012622 

012624 
012632 

012634 
012640 

012642 
012644 
012646 



001312 
000760 
052722 
022222 
000475 
052712 
104401 
011017 
004737 
022703 
001406 
022703 
001436 
104401 
001312 
000763 
052722 
032762 
001027 



010000 



020000 



013664 
000131 

000116 



040000 
020000 



52$: 



31$: 
30$: 



177776 



17$: 
440$: 



104401 
010574 

00'.737 013664 
122703 000104 
001004 

042762 000004 000002 
000411 

122703 000106 
001403 

104401 
001312 
000757 



442$: 



012650 05276? 000004 000002 
012656 

012656 000402 

01266C 042722 040000 

012664 

012664 104415 

012666 010721 

012670 000000 

012672 000377 

012674 001304 

012676 000 

012677 001 
012700 113722 001304 
012704 104415 
012706 010757 
0127^0 000000 
012712 000377 
0127U 001304 



443$: 

441$: 

18$: 
19$: 



Www ^ 




■ IF NOT A 1 .2 OR N TYPE 




BR 


16$ 


■TRY AGIAN 






fBIT12 (R2)«^ 


•SET BIT 12 IN STAT2 IF 


NO LU 


CMP 


(R2)*^.(R2)«^ 


:POP OVER STAT2 AND ST/' 


'3 


BR 


33$ 




n8202 


BIS 


fBIT13«(R2) 


.-SET BIT 13 IN STAT2 IF 


TYPE 








CONN 




.-ASK IF LOOP-BACK IS ON 




JSR 


PC INTTY 


;GET REPLY 




CMP 


#151 ,R3 


; Y 




BEQ 


17$ 






CMP 


#116,R3 


;N 




BEO 


18$ 






TYPE 








SOUES 




;IF NOT Y OR N TYPE "?" 




BR 


30$ 


:TRY AGAIN 




BIS 


#BIT14.{R2)* 


.•TURNAROUND IS CONNECTED 


BIT 


#BIT13,-2(R2) 


; M8202? 




BNE 


19$ 







TYPE 

MV35 

JSR 

CHPB 

BNE 

BIC 
BR 

CMPB 
BEQ 

TYPE 

$QUES 

BR 

BIS 



BR 

BIC 

INPUT 

LINE 

0 

377 

$THP3 

.BYTE 

.BYTE 

NOVB 

INPUT 

6M 

0 

377 
$T«P3 



; ASK QUESTION 

; ABOUT MODEM TTYPE 

PC.INTTY ; GET ANSWER. 

#*0,R3 ; IS IT DMCll-OA? 

442$ ; NO. 



#BIT2,2(R2) 
441$ 

#'F.R3 
443$ 



440$ 

fBlT2,2(R2) 



19$ 

#BIT14,(R2)t 



YES INDICATE IT IN STAT3 

IS IT A DMC11-FA (V.35)? 
YES-TAKE CARE OF IT. 

NO ASK OPERATER WHATS GOING ON. 

REASK QUESTION 

YES V.35, RECORD IN STAT3 

END DECISION POINT. 

NO TURNAROUND 



0 
1 

$THP3,(R2)* 



; STORE SWITCH PAC IN HAP 



CZKCE 


HACY11 


30a (1052 


I 08- JUL-80 08:24 


PAGE 59 


CZKCt.PII 08 


-JUL-80 08:24 




POME ft DOWN AND 


2774 


012716 


000 








.BVTE 


2775 


012717 


001 








.BYTE 


2776 


012720 


113722 


001304 






novB 


2777 


012724 


005722 








TST 


2778 


012726 


005337 


001302 




33$: 


DEC 


2779 


012732 


001200 








BNE 


2760 


012734 


000137 


013272 






JHP 


2781 


012740 


012701 


160000 




71: 


nov 


2782 


012744 


012737 


013364 


nnnnni. 




nov 


2783 


012752 


005011 






2S: 


CLH 


2784 


012754 


005711 








TST 


2785 


012756 


001135 








BNE 


2786 


012760 


005061 


000006 






CLR 


2787 


012764 


005761 


000006 






TST 


2788 


012770 


001130 








BNE 


2789 


012772 


012711 


002000 






nov 


2790 


012776 


005061 


000004 






CLR 


2791 


013002 


012761 


125252 


uuuuuo 




nov 


2792 


013010 


052711 


020000 






BIS 


2793 


013014 


022761 


125252 






cnp 


2794 


013022 


001113 








BNE 


2795 










;AT 


THIS POINT 


2796 


01 3024 








2lt 




2797 


013024 


010122 






22S 


nov 


2798 


013026 


012711 


001000 




15$ 


nov 


2799 


013032 


005061 


000004 






CLR 


2800 


013036 


012761 


122113 


uuuuuo 




nov 


2801 


013044 


052711 


000400 






BIS 


2802 


013050 


012761 


021264 


wUwUU9 




nov 


2803 


013056 


052711 


000400 






BIS 


2804 


013062 


122761 


000377 






cnpB 


2805 


013070 


001003 








BNE 


2806 


013072 


052712 


010000 






BIS 


2807 


013076 


000436 








BR 


2808 


013100 


032761 


000002 


(\i\nf\c\L 




BIT 


2809 


013106 


001403 








BEQ 


2810 


013110 


052712 


060000 






BIS 


2811 


013114 


000427 








BR 


2812 


013116 


032761 


000010 






BIT 


2813 


013124 


001023 








BNE 


2814 


013126 


012761 


000100 


(\(\f\f\(\L 
UwUvUh 




nov 


2815 


013134 


012761 


122113 


wVUUUO 




nov 


2816 


013142 


052711 


000400 






BIS 


2817 


013146 


012761 


021264 


vwwvvO 




nov 


2818 


013154 


052711 


000400 






BIS 


2819 


013160 


032761 


000010 


t\(\cir\(\L 

UvUUU"» 




BIT 


2820 


013166 


OOU02 








BEQ 


2821 


013170 


052712 


040000 






BIS 


2822 


01 31 74 


005722 






20$ 


TST 


2823 


013176 


012761 


021324 


uuuuuo 




nov 


2824 


013204 


012711 


001400 






nov 


2825 


013210 


156122 


000004 






BISB 


2826 


013214 


012761 


021344 


000006 




nov 


2827 


013222 


012711 


001400 






nov 


2828 


013226 


156122 


000004 






BISB 


2819 


013232 


005722 








TST 



G 5 

UP ROUTINES SEQ 0058 

0 
1 

fTnP3.(R2)* ;STORE SUITJH PAC IN nAP 

(R2)* ;POP OVER 5TAT3 

$TnP2 .DEC KnC CJUNT 

12$ :BR IF no;<E TO DO 

13$ .-CONTINUf. 

#160000. R1 .-SET FOR fIRST ADDRESS TO BE TESTED 

«6$.a«4 :SET FOR NON-EXISTANT DEVICE TinE OUT 

(R1) ;CLEAR SELO 

(R1) ;IF KnCII KnCSR S/B 0 

3$ :IF NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO KHCl! 

6(R1) : CLEAR SEL6 

6(R1) :IF Kncn THEN IcnRIC S/B -0! 

3$ :BR IF NOT KnCli 

l'BITIO.(RI) ;SET ROnO 

4(R1) .-CLEAR SEL4 

#125252. 6(R1) :URITE THIS TO SEi6 

#BIT13.(R1) .-WRITE IT! 

#125252, 4(R1) ;UAS IT WRITTEN? 

3$ ;IF NO IT IS NOT CRAM 
IT IS ASSUnED THAT R1 HOLDS A KnCll CS>R ADDRESS. 

R1,(R2}« ; STORE CSR IN CORE TABLE. 

#BIT9.(R1) ;CLEAR LINE UNIT LOOP 

4(R1) ; CLEAR P0RT4 

#122113. 6(R1) ;LOAD INSTRUCTION (CLR DTR) 

#BIT8,(R1) .-CLOCK INSTRUCTION 

#021264. 6(R1) ;LOAD INSTRUCTION 

«BIT8,(R1) .-CLOCK INSTRUCTION 

#377,4(R1) ;IS IT ALL ONES? 

.♦10 ;BR IF NO 

#BIT12.(R2) ;IF YES. NO LINE UNIT. SET STATUS BIT 
20$ 

#BIT1 .4(R1) ;IS SWITCH A ONE? 

.♦10 ;BR IF n8201 
fBlT13'.BITU.(R2) ;H8202 ASSUHE CONNECTOR 

20$ : CONNECTOR ON) 

fBlT3,4(R1) .-IS nRDY SET 

20$ .-BR IF n8201 NO CONNECTOR (ON LINE) 

#BIT6,4{R1) .-LOAD P0RT4 

#122113,6<R1) .-LOAD INSTRUCTION 

#BIT8.(R1) ;ClOCK INSTRUCTICN(SET DTR) 

f021264,6(R1) .'LOAD INSTRUCTION 

#BIT8.(R1) .-CLOCK 1NSTRUCTI0N(READ nODEn REG) 

#BIT3,4(R1) ;IS NRDY SET NOW? 

20$ :BR IF NO CONNECTOR 

#81114, (R2) ;SET STATUS BIT FOR CONNECTOR 

(R2)* :POP POINTER 

#021324.6(R1) .-PUT INSTRUCTION IN P0RT6 

#BIT9!BIT8.(R1) ;P0RT4.LU 15 

4(R1),(R2)^ .STORE DDCnP LINE # IN TABLE 

#021344,6(R1) ;P0RT6.INSTRUCTI0N 

#BIT8!B1T9.(R1) .CLOCK INSTR. 

4(R1),(R2)^ .STORE Bn873 ADD IN TABLE 

{R2)^ .POP OVER STAT3 
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h 5 



SEQ 0059 



28M) 

2831 

2852 

2855 

2854 

2855 

2856 

2857 

2858 

2859 

2840 

2841 

2842 

2845 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2855 

2854 

2855 

2856 

2857 

2858 

2859 

2660 

2861 

2862 

2865 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2875 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2685 

2884 

288S 



015254 
015236 
013242 
015250 
015252 
015254 
015260 
015264 
015270 
015272 
015276 
015502 
015504 
015510 
013514 
013516 
013522 
015526 
015550 
015552 
015540 
015546 
015552 
015556 
015560 
015562 
015564 
013570 

015572 
015574 
013376 

015400 
015406 
015410 
015416 
015424 
013430 
013454 
015440 
015442 
015446 
015450 
015454 
015456 
015464 
013470 
013472 
013476 
013504 
013506 
013514 
013520 
015526 
013532 



032757 
001114 
012757 
012757 
012702 
012700 
012701 
010120 
012721 
022021 
020127 
101771 
015757 
006057 
105063 
012704 
016437 
011201 
012761 
012711 
012761 
012711 
105200 



005011 








CLR 


(R1 ) 


CLEAR ROni 


005237 


001472 






INC 


KNNUn 


UPDATE DEVICE COUNTER 


022757 


000020 


001472 




CHP 


«20.icnNUH 


ARE HAX. NO. OF DEV FOUND? 


001410 








BEO 


151 


YES DON'T LOOK FOR ANY HORE. 


005011 






5S: 


CLR 


(R1) 


CLEAR BIT 10 


005061 


000006 






clr 


6(R1> 


CLEAR SEL 6 


062701 


000010 




US: 


ADD 


flO.RI 


UPDATE CSR POINTER ADDRESS 


022701 


164000 






CMP 


f1 64000, R1 




001250 








BNE 


2S :BR IF MORE ADDRESS TO CHECK. 


005057 


001470 




15S: 


CLR 


•CHACTV 




005757 


001472 






TST 


KHNUn ;WERE ANY KMCH'S FOUND AT ALL? 


001425 








BEO 


5S .-ERROR AUTO SIZER FOUND NO KMCII'S IN THIS SYS. 


015701 


001472 






NOV 


KHNUn.Rl 




010157 


001476 






nov 


R1.SAVNUH .-SAVE NUMBER OF DEVICES 


000241 






4S: 


CLC 






0061 37 


001470 






ROL 


KHACTV ;GENERATE ACTIVE REGISTER OF DEVICES. 


005257 


001470 






INC 


KHACTV 


;SET THE BIT 


005501 








DEC 


R1 




001571 








BNE 


4S 


;BR IF HORE TO GENERATE 


012757 


000006 


000004 




MOV 


«6,af4 


;RESTORE TRAP VECTOR 


015757 


001470 


001474 




nov 


KHACTV, SAVACT 


;SAVE ACTIVE REGISTER 


000157 


013400 






J HP 


VECHAP 


;G0 FIND THE VECTOR NOW. 


104401 


007646 




5>: 


TYPE 


,HERR2 


;NOTIFY OPR THAT NO KHCII'S FOUND. 


005000 








CLR 


RO 


;HAKE DATA LIGHTS ZERO 


000000 








HALT 




;STOP THE SHOW 


000776 








BR 


.-2 


.-DISABLE CONT. SW. 


012716 


013260 




6S: 


nov 


#14S.(SP) 


.-ENTERED BY NON-EXISTANT TIME-OUi. 


000002 








RTI 




.-RETURN TO HAINSTREAH 


000001 






WHICH: 


1 






002 


002 






.BYTE 


2.2 




001306 








$TnP4 







000001 001446 VECHAP: 



000540 
015572 
002100 
000500 
000502 

000004 

001000 

001470 
001276 

000012 
013650 

000200 
001000 
121111 
001400 



000022 
000020 



If: 



001276 

177776 
000004 
000006 



2S: 



7$: 



BIT fSWOO.STRTSW 

BNE 5S 

HOV #540.a#22 

HOV «4$,a«20 

HOV fKn.nAP,R2 

HOV #300, RO 

nov f302,R1 

HOV R1,{R0)* 

HOV #4.(R1)» 

CHP (r6)»,(R1)* 

CHP R1.#1000 

BLOS IS 

HOV KHACTV, STHPO 

HOR STHPO 

BCC 5S 

NOV #12, R4 

nov BRLVL(R4),PS 

nov (R2),R1 

nov #200.4 (R1) 

nov #BIT^.(R1) 

nov #121111, 6(R1) 

nov #B1T9!BIT8.(R1) 

INCB RO 



SET lOT TRAP PRIO TO 7 
SET lOT TRAP VECTOR 
SET SOFTWARE POINTER 
FLOATING VECTORS START HERE 
PC OF JOT INSTR. 
START FILLING VECTOR AREA 
WITH .♦2; lOT 
ADD 2 TO RO ♦Rl 

BR IF HORE TO FILL 
STORE TEHPORALLY 
BRING OUT A BIT 
BR IF ALL DONE 
R4 IS INDEX REGISTER 
SET PS TO 7 



SET Roni 

PUT INSTRUCTION IN P0RT6 
FORCE AN INTERRUPT 
STALL 



I 5 

C2KCE MACni 50A(10S2) 08-JUL-80 08:2^. PAGE 61 

CZKCE.P11 08- JUL -80 08:2A POWER DOWN AND UP ROUTINES SEO 



cSOO 


ni T< V. 


1 jfo 








BMP 

one 


»7 
• C 


- rnP T IMF TTi IMTFRllPT 

0 r vn 1 1 nc (V Art* c nu> • 


7AA7 

coot 




1^770/ 








9UO 


f 7 R4 

9C g 


■f^FT MFVT 1 nUr^T 1 FVFl 

« vC 1 A 1 L wWU w< rw LCWCL 


cOOO 


U 1 3j'*c 


nft1 Z.<Si 
UU 1 "lU** 








DC W 


6t 

09 


-RR IF Z Q 


7 MO 

COOT 


ni iAz.£ 


01 A^17 


0116^0 


177776 

1 r r r r O 




MOV 


RRl Ml (R4 ) 


-MnVF NFXT 1 OUFR i FVFI IN PS 




01 1S^7 


0007^*7 












:BR TO DELAY 


?aoi 

cOt I 


01 T^^^ 
U 1 j77h 


n«77<,7 




000007 
UUvvUc 


o» • 


Did 


f^lOO 7(R7) 


■NO INTFRllPT AS5l'HF 100 AT i FVFL 5 AND FIX KMC11 lAiFR 


71107 


011^^7 
w 1 JJOC 


00^01 1 






li- 




(RI ) 


•CLEAR ROM! 




01 1^4^ 


OA7707 


00001 0 

Uvvv 1 V 






ADD 


#10 R2 

■v I V # nc 


•POP SOFTWARE POINTER 




01 is7n 


000715 

vvv rJJ 








BR 


2S 


•KEEP GOING 


CUT J 


013572 


051^7 
\>J 1 Owe 


000007 

VVwUvC 






RI S 


(SP) 2(R2) 


■GET VECTOR ADDRESS 


CO TO 


01 157A 


0477<i7 


000007 

vvvvv ■ 


00000? 




RI r 


#7 2{R2) 


■CLEAR JUNK 


71107 


01 1^0^ 


016405 


011652 

w 1 JOJC 






MOV 

nw » 


BRLVL «'2(R4) R5 


'GET BR LEVEL OF KMC11 


71IOf( 


01 1A10 


006105 










R5 


•SHIFT LEVEL 4 PLACES 


7A00 


011612 


006105 








ASL 

n jc 


R5 


•TO THE LEFT FOR THE 


7000 


011614 

w \ JO 1 


006105 








ASL 


R5 


•STATUS TABLE 


7001 


01 1<^1<^ 
01 3620 


006105 








ASL 


R5 




700? 

C TVC 


042705 


170777 






BIC 


#170777, R5 


:CLEAR UNWANTED BITS 


C TV J 


01 1624 


050562 


000002 

W W VL 






BIS 


R5 2(R2) 


;PUT BR LEVEL IN STATUS TABLE 


7904 


01 1610 










CMP 


(SP) (SP)* 


;POP lOT JUNK OFF STACK 


700S 


011612 


012716 


013562 






MOV 


#3*. (SP) 


;SET FOR RETURN 


7906 


01 1616 


000002 








RTI 






7907 

C TV ' 


011640 




004114 

W~ 1 ^T 


000020 

W VWL V 


5S: 


MOV 


#SSCOPE i#20 


■ RESTORE SCOPE VECTOR 

•ALL DONE WITH "AUTO SIZING" 


700A 


01 1646 


000707 








RTS 


PC 


2909 












PRO 






2910 


011650 


000000 

vvv vvv 






BRLVL : 


.•LEVEL 0 




0Q1 1 

tVl 1 


(\^ TA^7 
U1 307c 


UUvUUU 








Don 


• 1 PUFI 0 
iLCVCL U 




791? 


01 1654 


000200 








PR4 


;LEVEL 4 




991 ^ 

CT 1 J 


01 1A56 


000740 








PR5 


•LEVEL 5 




79K 


011660 


000100 

WV WW 








PR6 


; LEVEL 6 




2915 


01 1662 


000340 








PR 7 


.•LEVEL 7 




2916 


















291 7 


















2918 


01 1664 


105777 


165354 




INTFY: 


TSTB 


aSTKS 


.-WAIT FOR DONE 


2919 


013670 


100375 








BPL 


.-4 


;PUT CriAR IN R3 


2920 


013672 


017703 


165350 






nov 


atTKB,R3 


2921 


013676 


105777 


165346 






TSTB 


atTPs 


.-WAIT UNTIL PRINTER IS READY 


2922 


011702 


100175 








BPL 


.-4 

R3.aSTPB 




CtC J 


011704 


010177 


165342 

1 V ^ W^ fc 






nov 


.•ECHO CHAR 




011710 


042701 

W~C » vW 


000240 

WVC^ V 






BIC 


#BIT7!BIT5,R3 


;nASK OFF LOWER CASE 




011714 


000207 

W VC V ' 








RTS 


PC 


.■RETURN 


79? 6 


















7927 

CtC » 










APT. SIZE: 






2928 


011716 


000005 

WV W J 








RESET 




;;PUSH RO ON STACK 




011720 


010046 

V 1 w^w 








nov 


RO,-(SP) 


£ 7 


011722 


010146 








nov 


RI ,-(SP) 


;:PUSH RI ON STACK 


2911 

C 7 J ■ 


011724 


010246 








NOV 


R2,-(SP) 


:;PUSH R2 ON STACK 


2912 


011726 


010146 








nov 


R3,-(SP) 


•:PUSH R3 ON STACK 


7911 


011710 


005017 


W 1 1 WC 






CLR 


VECTR 


; CLEAR THE LOCAL VARIABLE 


70 lA 


01 1714 


005017 


V 1 1 WW 






CLR 


PRIRTY 


; CLEAN UP LOCAL VARIABLE 


2935 


013740 


01 3700 


001376 






nov 


SCDUI.RO 


; GET THE DEVICE COUNT 


2936 


013744 


010037 


001476 






nov 


RO.SAVNUn 


: SAVE THE NO. OF DEVICES 


2937 


013750 


012701 


001346 






nov 


f$nAnsi«Ri 


; GET EXTRA INFO. BITS POINTER 


2938 


013754 


013737 


001372 


014134 




nov 


SBASE.BASE 
SVECT1. VECTR 


; GET BASE CSR ADDRESS 


2939 


01 3762 


113737 


001366 


014132 




novB 


; GET THE VECTOR 


2940 


013770 


113737 


001367 


014136 




novB 


SVECTUI .PRIRTY 


; GET THE PRIORITY 


2941 


013776 


013737 


001374 


001470 




nov 


SDEVN.KMACTV 


; SAVE THE KnC'S SELECTED ACTIVE 



CZKCE 

^942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2955 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2965 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2968 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 



«ACY11 30A(10^2) 08-JUL-80 
.P11 08-JUL-80 08:24 



08:24 PAGE 62 
POWER DOWN AND 



J S 



UP ROUTINES 



SEQ 0061 





ni T7T7 

\J\ }( 31 


AA1 470 


A01 474 
UU 1 *• » 




MAU 

nuv 


KHACTV.SAVACT 


U 1 hUI c 




nni 405 






MAU 

nuv 


jrcnnuo d7 

w»vvmv ,nC 


t\\ AAI L, 




nft7ioo 

UUc I UU 






MAU 

nuv 


MKU MAP ti\ 


U i*»Ucc 








jm • 


ILK 

V nr 


(SX'\ * 
\n3 i ^ 


hi Lt\'iL 

U 1 ■•Uc*' 


VCC'Vj 


rtn5Ton 

UUc jUU 
























01)70X 
W 1 ClvJ 


007100 
UUc ' UU 






MOW 


irM MAP R'^ 




01 X70\ 
VI jf £3 


01 41 ^4 
U 1 *• I J** 




It- 


MOV 






000001 

WWUUU 1 






MOVR 


(R'lH 1(R5) 




00A71 ^ 

WWOC 1 3 








^ jn 


(R5) 




WW04 1 3 










(r5} 




a'i\7^x 

V3 3' ' 3 


0141 '^A 






O A ^ 


PRIRTV (R5) 




WWO J 1 3 










(R3) 




00^X1 X 

WWO J 1 3 










(R5) 




WWO J 1 3 










(R5) 


U 1 two** 


WWO^ I 3 










(R5) 




\iJ3l C3 


0141 ^7 

w 1 ■! 1 3C 






BIS 


VECTR (R3)4^ 




017??^ 

V 1 tCt3 








MOV 


(07)4^ 19X)* 




00^77^ 

WW3 1 C3 








TST 


(R3)* 




OOS^OO 








DEC 


RO 


U 1 1 1 WW 


001407 

WW 1 HW • 










2$ 


W 1 *t 1 W£ 


woe 131 


000010 

vWvw 1 w 


0141 54 




ADD 


V10 BASE 


A1/.1 in 

W 1 H 1 1 U 


M%77X7 

UO£ 1 31 


000010 

WWWU 1 V 


0141 ^7 




AD 5 


fin VECTR 


W 1 1 ID 


000747 

www r ■ 








BR 


It 


0141 ?0 

W • *• 1 CW 








7i' 




\ i ^ p T\ J 


014170 

W 1 1 cW 


01 7kC\X 








MOV 


014122 


012602 








nov 


(SP)*,R2 


014124 


012601 








MOV 


(SP)».R1 


014126 


012600 








MOV 


(SP)*,R0 


014150 


000207 








RTS 


PC 


014152 


000000 






VECTR: 


.UORD 


0 


0U134 


000000 






BASE: 


.WORD 


0 


014136 


000000 






PRIRTV: 


.WORD 


0 



014140 
014142 
014150 

014156 
014162 
014166 
014170 
014172 
014176 
014202 



SAVE THE ACTIVE REGISTER 

GET ADDRESS OF FIRST DEVICE DESCRIPTOR UORD 

GET POINTER TO DEVICE MAP 

CLEAR DEVICE HAP 

IS WHOLE DEV. MAP CLEARED? 

NO, THEN GO ON. 

RESTORE DEV. MAP POINTER. 

LOAD CSR ADDRESS 

GET EXTRA INFO. BITS 

SET IT IN RIGHT POSITION. 

SET IT IN RIGHT POSITION. 

GET PRIORITY IN STAT1 

SET THEM IN RIGHT POSITION 



GET THE VECTOR IN STAT1 . 
GET THE STAT2 FROM DDWXX 
SKIP OVER STAT3 
COUNT BY 1 
ALL DONE? 

INCREMENT BASE CSR ADDRESS BY 10 
INCREMENT VECTOR ADDRESS BY 10 
SET THE NEXT MAP ENTRY 

.-POP STACK INTO R3 

;POP STACK INTO R2 

;POP STACK INTO RI 

;POP STACK INTO RO 
RETURN 



TEST 1 

;*OUT CONTROL REGISTER READ/ONLY TEST 

.••DO A MASTER CLEAR, VERIFY THA' ALL READ/ONLY 

:»BITS ARE IN THE CORRECT STATE 



TEST 1 



000004 
012757 
012757 

005077 
012702 
104412 
021224 
016104 
042704 
012705 



000001 001202 
014214 001442 

165704 
000011 



000004 
000054 
000020 



TSTl : 



SCOPE 

mv 

MOV 



#1 .STSTNH 
ITST2.NEXT 



CLR aKMCSR 

MOV #11, R2 
ROMCLK 

021004 !<20*11> 

MOV 4(R1),R4 

BIC f54,ft4 

MOV #20. RS 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

RI CONTAINS BASE KHC11 ADDRESS 

CLEAR SELO 

SAVE R2 FOR TYPEOUT 

NEXT WORD IS INSTRUCTION. ROMCLK PC--5504 
P0RT4 LINE UNIT REG 11 
PUT 'TOUND" IN R4 
CLEAR UNKNOWN BITS 
PUT 'tXPECTED" IN R5 



tZKCE HACYII 30A(10i2) 08-JUL-80 08:24 PAGE 63 

CZKCE.P11 08-JUL-80 08:24 LINE UNIT READ/ONLY TESTS 



K 5 



SEO 0062 



2998 

2999 

5000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

5029 

3050 

5031 

5032 

3033 

3034 

3035 

3036 

3037 

5038 

5039 

3040 

3041 

5042 

5043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 



0U206 120504 

014210 001401 

014212 104002 
014214 



014214 
014216 
014224 

014232 
014236 
014240 
014242 
014246 
014252 
014254 
014256 
014260 
014262 



0'4262 
014264 
014272 

014300 
014502 
OV.306 
014310 
014312 
014316 
014322 
014326 
014550 
014332 
014554 



000004 
012737 
012757 

012702 
104412 
021244 
016104 
042704 
005005 
120504 
001401 
104002 



000004 
012757 
012737 

104410 
012702 
104412 
021264 
016104 
042704 
012705 
120504 
001401 
104002 



U: 



000002 001202 
014262 001442 

000012 



000004 
000017 



TST2: 



1$: 



000005 001202 
014334 001442 



000013 



TST3: 



000004 
000215 
000100 



CNPB R5,R4 
BEO 1S 
ERROR 2 



;IS OUT READY SET? 

;BR IF YES 

; ERROR IN LU 11 



TEST 2 

*IN CONTROL REGISTER READ/ONLY TEST 

•DO A MASTER CLEAR. VERIFY THAT ALL READ/ONLY 

•BITS ARE IN THE CORRECT STATE 



TEST 2 



SCOPE 

MOV #2,$TSTNH 
MOV #TST3,NEXT 

MOV #12, R2 
ROMCLK 

021004 !<20*12> 



MOV 
SIC 
CLR 
CMPB 
BEQ 
ERROR 



4(R1),R4 
#17, R4 
R5 

R5,R4 
It 

2 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

.•SAVE R2 FOR TYPEOUT 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

:P0RT4 LINE UNIT REG 12 

;PUT *TOUND" IN R4 

.•CLEAR UNKNOWN BITS 

;PUT "EXPECTED" IN R5 

;ARE ALL BITS CLEARED? 

:BR IF YES 

.•ERROR IN LU 12 



•****«*t*t*t*tt*««*****t**** TEST 5 **♦*••*•«•< 
•*MODEM CONTROL REGISTER READ/ONLY TEST 
;*D0 A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 
;*BITS ARE IN THE CORRECT STATE 



; TEST 3 



SCOPE 

MOV fS.STSTNH 

MOV fTST4,NEXT 

HSTCLR 

MOV #15. R2 
ROMCLK 

021004!<20*13> 



IS: 



MOV 
BIC 
MOV 
CMPB 
BEO 
ERROR 



4(R1),R4 
#213. R4 
#100. R5 
R5.R4 
U 
2 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

.■MASTER CLEAR KMC11 

;SAVE R2 FOR TYPEOUT 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;P0RT4 LINE UNIT REG 13 

;PUT 'TOUND" IN R4 

.•CLEAR UNKNOWN BITS 

;PUT 'tXPECTED" IN R5 

.ARE RING. DTR. AND MODEM READY SET? 

;BR IF YES 

.•ERROR IN LU 13 
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CZKCE.PII 08-JUL-80 08:24 LINE UNIT REAO/ONLT TESTS 



L 5 



SEQ 0063 



3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

5081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 



014334 
014336 
014344 

014352 
014354 
014360 
014362 
014364 
014370 
014374 
014400 
014406 
014410 
014414 
014420 
014422 
014424 
014426 



014426 
014430 
014436 
014444 

014452 
014454 
014460 
014466 
014470 
014472 
0U474 
014476 
014502 
014506 
014512 



000004 
012737 
012737 

104410 
012702 
104412 
021364 
016104 
042704 
012705 
032737 
001404 
042704 
042705 
120504 
001401 
104002 



000004 
012737 
012737 
012737 

104410 
012702 
012761 
104412 
122112 
104412 
021245 
012705 
116104 
042704 
120504 



000004 001202 
014426 C01442 



000017 



000004 
000206 
000051 

020000 002050 

000040 
000040 



TST4: 



IS: 



000005 001202 
014566 001442 
014460 001444 



TST5; 



000012 

000040 000004 U: 



000040 
000005 
000337 



*•*••••••••••••••••••*••••• TEST 4 

•MAINTENANCE REGISTER READ/ONLY TEST 

•DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

•BITS ARE IN THE CORRECT STATE 



TEST 4 



SCOPE 




iinw 


Mi A T C T UM 

#4 .>iSTNn 


nUV 




nSTCLR 




nov 


#17. R2 


ROnCLK 




021004 


<20^17> 


nov 


4(R1),R4 


BIC 


#206, R4 


nov 


#51 .R5 


BIT 


#BIT13,STAT1 


BEQ 


.♦12 


BIC 


#40, R4 


BIC 


#BIT5,R5 


cnPB 


R5,R4 


BEQ 


11 


ERROR 


2 



: LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KNC11 ADDRESS 

;HASTER CLEAR KNCll 

.•SAVE R2 FOR TYPEOUT 

.•NEXT WORD IS INSTRUCTION. ROnCLK PC=5304 

;P0RT4 LINE UNIT REG 17 

;PUT 'TOUND" IN R4 

.-CLEAR UNKNOWN BITS 

;PUT "EXPECTED" IN R5 

;IS LU AN n8202 OR H8201? 

:BR IF n8201 

.•MASK OFF SI BIT IF n8202 

;SI BIT IS UNKNOWN ON AN n8202 

.ARE SI AND ICIR SET? 

:BR IF YES 

.ERROR IN LU 17 



TEST 5 •••♦••••••••••1 

.••LINE UNIT REGISTER WRITE/READ TEST 

;«SET BITS IN LU REGISTER 12, VERIFY IT IS SET 

,^CLEAR BITS IN LU REGISTER 12, VERIFY IT IS CLEAR 



TEST 5 



SCOPE 

nov 
nov 
nov 

nSTCLR 

nov 
nov 

ROnCLK 
122112 
ROnCLK 
021245 

nov 
novB 

BIC 

cnpB 



#5.$TSTNH 

#TST6.NEXT 

fU.LOCK 



#12. R2 
«40,4(R1) 



#40, R5 
5(P1),R4 
#337, R4 
R5,R4 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START 3F NEXT TEST. 

; ADDRESS FOR LOCK ON DATA. 

:R1 CONTAINS BASE KnCII ADDRESS 

;nASTER CLEAR KnCII 

;SAVE REGISTER ADDRESS FOR TYPEOUT 

;LOAD P0RT4 

.•NEXT WORD IS INSTRUCTION, ROWCLK PC = 5304 
;SET BITS IN LU-12 

;NEXT WORD IS INSTRUCTION. ROnCLK PC=5304 

.•READ LU-12 

;PUT "EXPECTED" IN R5 

;PUT "FOUND" IN R4 

.-CLEAR UNWANTED BITS 

;IS BITS SET? 
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CZKCE.Pn 08-JUL-80 08:24 LINE UNIT WRITE/READ TESTS 



n 5 



SEQ 0064 



3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3U7 

3U8 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

1161 

3162 

3163 

3164 

3165 



014514 
014516 
014520 
014522 
014530 
014534 
014536 
014540 
014542 
014544 
014546 
014552 
014556 
014560 
014562 
014564 



014566 
014570 
014576 
014604 

014612 
014614 
014620 
0U626 
014630 
0U632 
0U654 
0U636 
0U642 
0U646 
0U652 
0U654 
0U656 
0U660 
014662 
014670 
0U674 
014676 
014700 
014702 
014704 
014706 
014712 
014716 



001401 
104003 
104405 
012737 
005061 
104412 
122112 
104412 
021245 
005005 
116104 
042704 
120504 
001401 
104003 
104405 



014530 
000004 



000005 
000337 



001444 



2S: 
3S: 



4S: 



BEO 
ERROR 
SC0P1 
HOV 

CLR 

ROMCLK 

122112 

ROnCLK 

021245 

CLR 

NOVB 

SIC 

cnpB 

BEO 

ERROR 

SC0P1 



2S 
3 

t3S.L0CK 

4(R1) 



R5 

5(R1),R4 
#337. R4 
R5,R4 
4$ 
3 



;8R IF YES 

;ERR0R. BIT S IS NOT SET 
; SCOPE SUBTEST (SW09s1) 
;NEU SC0P1 
:LOAD P0RT4 

;NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 
; CLEAR BIT 5 IN LU-12 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

.•READ LU-12 

;PUT "EXPECTED" IN R5 

;PUT "FOUND" IN R4 

.CLEAR UNWANTED BITS 

:IS BIT5 CLEAR? 

:BR IF YES 

: ERROR, BIT5 IS NOT CLEAR 
.•SCOPE SUBTEST (SW09=1) 



TEST 6 

.-•LINE UNIT REGISTER WRITE/READ TEST 
.••SET BIT1 IN LU REGISTER 17, VERIFY IT IS SET 
.-•CLEAR BIT1 IN LU REGISTER 17. VERIFY IT IS CLEAR 











• • 

; TEST 
* 


6 


000004 






T C T ^ . 

TSTo: 


CrADC 

SLOrc 




012737 


000006 


001202 




HOV 


f6,STSTNN 


012737 


0147^6 


001442 




NOV 


#TST7.NEX1 


012737 


014620 


001444 




NOV 


fU.LOCK 


104410 








nSTCLR 


#17.R2 


012702 


000017 






NOV 


012761 


000001 


000004 


IS: 


NOV 


f1 .4(R1) 


104412 








RONCLK 




122117 








122117 




104412 








RONCLK 




021365 








021365 


#1,R5 


012705 


000001 






NOV 


116104 


000005 






NOVB 


5(R1).R4 


042704 


000376 






BIC 


f376.R4 


120504 








CNPB 


R5.R4 


001401 








BEO 


2S 


104003 








ERROR 


3 


104405 






2$: 


SCOPl 


#3$. LOCK 


012737 


014670 


001444 




NOV 


005061 


000004 




3$: 


CLR 


4(R1) 


104412 








RONCLK 




122117 








122117 




104412 








RONCLK 




021365 








021365 


R5 


005005 








CLR 


116104 


000005 






NOVB 


5(R1).R4 


042704 


000376 






BIC 


#376, R4 


120504 








CNPB 


R5.R4 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

: ADDRESS FOR LOCK ON DATA. 

:R1 CONTAINS BASE KNC11 ADDRESS 

;NASTER CLEAR KNC11 

.•SAVE REGISTER ADDRESS FOR TYPEOUT 

:LOAD P0RT4 

:NEXT WORD IS INSTRUCTION. RONCLK PC=5304 
.-SET BIT1 IN LU-17 

.•NEXT yORD IS INSTRUCTION. RONCLK PC=5304 

.•READ LU-17 

.PUT "EXPECTED" IN R5 

.PUT 'tOUND" IN R4 

.•CLEAR UNWANTED BITS 

;IS BIT1 SET? 

;BR IF YES 

.•ERROR. BIT 1 IS NOT SET 
.SCOPE SUBTEST (SW09=1) 
:NEW SCOPl 
.LOAD P0RT4 

;NEXT WORD IS INSTRUCTION. RONCLK PC=5304 
.•CLEAR BIT 1 IN LU-17 

:NEXT WORD IS INSTRUCTION. RONCLK PC=5304 

;REAO LU-17 

.PUT "EXPECTED" IN R5 

;PUT "FOUND" IN R4 

.'CLEAR UNWANTED BITS 

.IS BIT1 CLEAR? 
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-JUt-80 08:24 


3166 


A4 / 7^A 

01*i7Z0 


AA1 / A1 

001401 




3i67 


A1 / 7^^ 

01*i7Z2 


1 A/ AAT 

1 Oh 003 




3166 


A1 / 7^/ 


1 A/ / AC 




3169 








5170 








51 71 








31 (c 








51 f 5 








31 f H 








11 7t 

51 (j 








11 7iL 

51 f 0 








T 1 77 








TI 7S 








TI 7Q 

51 f T 








TI %.f\ 

51 oU 


A1 LfiL. 
Ul ' CO 


AAAAA/. 

UUUOUh 




TI 81 

31 Ol 


Ul««f 3U 


ni 57X7 
Ul CI 3f 


UUUUUf 


TI 

51 OC 


rt1^7Tit 

UlHf 3o 


ni 57T7 

Ul cf 3f 


ni <i T/^ 
u 1 3 1 30 


TI ST 

5105 


Ul«lf "I*! 


ni 37X7 

Ul cr 31 


ni^7A^ 

U 1 H r Oh 


11 tLL 








TI 

31 B3 


ni A7C5 

Ul«»f 3c 


1 f\LL^ n 

1 Uhh I U 




TI ftiL 

31 00 


U 1 *» » J"! 


ni 3703 
U 1 Civc 


nnnni x 

UUUU 1 J 


TI tit 

51 Of 


niz.7&n 

UlHfOU 


ni 37nn 

UlcrUU 


Aonnni 
uuuuu 1 


TI BB 

5100 


ni i.7iL/. 
Ul*»f Oh 






TI BO 

5107 


ni /.7A/. 

U 1 H ' OH 


ni itnAi 
UIUU01 


UUUUUh 


TI on 
5I7U 


ni z.77n 


n/.37Ai 
UHcf 01 


nnn5^7 

UUUc5 ' 


TI Q1 

51 VI 


u 1 f f 0 


inA/,1 3 

1 Uhh I c 




TI 

31 Vc 


A1 cnnn 
Ul 3UUU 


1 591 1 X 

1 cc I 13 




TI OT 

3 it5 


ni cnn? 
Ul 3UUc 


1 Uhh I c 




3 1 TH 


A1 KAAi 
U 1 3UUH 


n31 

Uc 1 c03 




T1Q<> 
31t5 


U 1 3UU0 


ni nnn^ 




3 1 tO 


U 1 7U 1 u 


n^37n^ 

UHCf U3 


uuuc J • 


T107 

3 1 Tf 




1 1 AinA 

1 1 0 1 wH 


00000^ 

UwUUw3 


TI Oft 

3 1 70 


ni ^n^n 

U 1 7UcU 


n^37n^ 

UHc r UH 


0003S7 

UUUC7 ' 


TI 00 
31 77 


ni cn?^ 


1 3n^nA 

1 cU3Uh 




3c UU 


ni ^n9A 

U 1 3UcO 


nni ^ni 

UU 1 hU I 




3£U 1 


m cnxn 

Ul 3U3U 


m^nnx 

1 UHUU3 




T5rt3 
3cUc 


ni ^nX3 

U 1 3U3c 


1 nLLn'\ 

1 UHhU? 




T3nT 
3CU3 


U 1 3U3H 


nnn 7^1 

UUUcH 1 




3cU*» 


ni ^nxA 


1 nci nn 

1 uo 1 UU 




3cu3 


W 1 3vHv 


nni x^i 






W 1 7UHC 


0177X7 

U IC' J' 


01 505<^ 




ni ^n^o 


01 7700 

w 1 c > vU 


000001 

UUUUv 1 






00^100 

\J\lJ 1 UU 




T7no 

3cU7 


ni ^n^A 

U 1 3U30 






3c 1 U 


ni sn^A 


01 00A1 
U 1 UUO 1 


OOOOOA 

UUUUUH 


3c 1 1 


ni ^n/.9 
u 1 3uO< 


0/.37A1 
UH<f 0 1 


0003^7 
uuuc? ' 


T51 5 
3<lc 


ni cn7(. 

U 1 3Ur U 


102.^1 3 
1 UHH 1 c 




X31 X 

3c 1 3 


ni ^n77 

U 1 3Ur c 


1 331 1 X 
I cc 1 1 J 




3c IH 


ni ^n7^ 


1 f\LL. 1 3 
1 Uhh I c 




5215 


01 S076 


021265 




5216 


015100 


010005 




3217 


015102 


042705 


000257 


3218 


015106 


116104 


000005 


3219 


015112 


042704 


000257 


3220 


015116 


120504 




3221 


015120 


001401 
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LINE UNIT WRITE/READ TESTS 



N 5 



SEO 0065 



4S: 



TST7: 



64t: 



65$: 



69S: 
67$: 



BEQ 4S 
ERROR 3 
SC0P1 



;BR If YES 

:ERR0R, BIT1 IS NOT CLEAR 
.•SCOPE SUBTEST (SU09=1) 



TEST 7 

.••LINE UNIT REGISTER WRITE/READ TEST 
.-•FLOAT A 1 THROUGH LINE UNIT REGISTER 13 
.••FLOAT A 0 THROUGH LINE UNIT REGISTER 13 



TEST 7 



SCOPE 

nov 
nov 

MOV 



#7.$TSTNI1 
#TST10,NEXT 
164$. LOCK 



HSTCLR 

NOV «13.R2 
nov fl.RO 



nov 

BIC 

ROnCLK 

12210011 

ROnCLK 

21005K1 

MOV 

BIC 

novB 

BIC 

CMPB 

BEQ 

ERROR 

SC0P1 

CLC 

ROLB 

BNE 

nov 
nov 
con 



R0,4(R1) 
#257.4(R1) 



3^20> 

R0,R5 

#2^7.R5 

5(R1),R4 

#257. R4 

R5.R4 

65S 

3 



RO 
64$ 

#67$.L0CIC 

#1.R0 

RO 



nov R0,4(R1) 
BIC «257,4(R1) 
ROHCLK 
122100!13 
ROnCLK 

21005!<13*20> 
nov R0,R5 
BIC #257. R5 
nOVB 5(R1).R4 
BIC #257. R4 
CnPB R5,R4 
BEQ 68$ 



: LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

; ADDRESS FOR LOCK ON DATA. 

;R1 CONTAINS BASE KHCII ADDRESS 

;nASTER CLEAR KMC11 

.-SAVE REGISTER ADDRESS FOR TYPEOUT 

;START UITH BIT 0 

;PUT PATTERN INTO P0RT4 
; CLEAR UNWANTED BITS 

.NEXT WORD IS INSTRUCTION. ROnCLK PC=5304 

;HOV DATA TO IBUS REGISTER 13 

.•NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 

.•READ FROn IBUS REGISTER 13 

;PUT EXPECTED IN R5 

; CLEAR UNWANTED BITS 

.-PUT "FOUND" INTO R4 

.•CLEAR UNWANTED BITS 

.•DATA CORRECT? 

:BR IF YES 

; ERROR 

;SW09=1? 

.•CLEAR CARRY 

.•SHIFT BIT IN RO 

:IF R0=0 THEN DONE 

;NEW SC0P1 

; START WITH BIT 0 

.CHANGE TO FLOATING ZERO 

;PUT PATTERN INTO P0RT4 
; CLEAR UNWANTED BITS 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

:nOV DATA TO IBUS REGISTER 13 

;NEXT WORD IS INSTRUCTION. ROnCLK OC=5304 

:READ FROn IBUS REGISTER 13 

;PUT EXPECTED IN R5 

; CLEAR UNWANTED BITS 

;PUT "FOUND" INTO R4 

.CLEAR UNWANTED BITS 

.DATA CORRECT? 

;BR IF YES 
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B 6 



SEO 0066 



3222 

522! 

3224 

5225 

3226 

3227 

5228 

5229 

5230 

3231 

5232 

5233 

3234 

5255 

5236 

5237 

5238 

5239 

5240 

3241 

3242 

5245 

5244 

5245 

5246 

5247 

3248 

5249 

3250 

3251 

3252 

5253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

5263 

5264 

3265 

3266 

3267 

5268 

5269 

3270 

5271 

5272 

3273 

3274 

3275 

3276 

3277 



015122 
015124 
015126 
015150 
015132 
015134 



104003 
104405 
005100 
000241 
106100 
001347 



68S: 



EMOIl 3 
SC0P1 

con 

CLC 
ROLB 
BNE 



RO 

RO 
6H 



ERROR 
SW09=1? 

CHANGE TO FLOATING 1 
CLEAR CARRY 
SHIFT BIT IN RO 
IF R0=0 THEN DONE 



TEST 10 ***** 
*LINE UNIT REGISTER WRITE/READ TEST 
*FLOAT A 1 THROUGH LINE UNIT REGISTER 14 
*FLOAT A 0 THROUGH LINE UNIT REGISTER 14 



TEST 10 



015136 


000004 




015140 


012737 


000010 

WW 1 V 


015146 


012737 


015312 


015154 


012737 


015174 


015162 


104410 




015164 


012702 


000014 


015170 


012700 


000001 


015174 






015174 


010061 


000004 


015200 


104412 




015202 


122114 




015204 


104412 




015206 


021305 




015210 


010005 




015212 


116104 


000005 


015216 


120504 




015220 


001401 




015222 


104003 




015224 


104405 




015226 


000241 




015230 


106100 




015232 


001360 




015234 


012737 


015250 


015242 


012700 


000001 


015246 


005100 




015250 






015250 


010061 


000004 


015254 


104412 




015256 


1221U 




015260 


104412 




015262 


021305 




015264 


010005 




015266 


116104 


000005 


015272 


120504 




015274 


001401 




015276 


104003 




015300 


104405 




015302 


005100 





001202 
001442 
001444 



TST10: 



64$: 



SCOPE 

NOV #10,$TSTN« ; LOAD THE NO, OF THIS TEST 

NOV #TST11,NEXT ; POINT TO THE START OF NEXT TEST, 

: ADDRESS FOR LOCK ON DATA. 
:R1 CONTAINS BASE KNllI ADDRESS 
.'MASTER CLEAR KNCll 
.■SAVE REGISTER ADDRESS FOR TYPEOUT 
.•START WITH BIT 0 



NOV 



«64$,LOCK 



NSTCLR 

NOV #14. R2 
KOV #1 .RO 



NOV R0,4(R1) 
RONCLK 
122100114 
ROMCLK 

21005!<14*20> 



65$: 



69$: 
67$: 



NOV 

novB 

CHPB 

BEQ 

ERROR 

SC0P1 

CLC 

ROLB 

BNE 

NOV 

NOV 

CON 



R0.R5 
5(R1).R4 
R5.R4 
65$ 
3 



RO 
64$ 

#67$, LOCK 

#1.R0 

RO 

R0.4(R1) 



NOV 

RONCLK 
122100114 
ROMCLK 

21005!<14O0> 



68$: 



NOV 

NOVB 

CHPB 

BEO 

ERROR 

SC0P1 

CON 



R0.R5 

5(R1).R4 

R5,R4 

68$ 

3 

RO 



;PUT PATTERN INTO P0RT4 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC = 5504 

:NOV DATA TO IBUS REGISTER U 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

.•READ FROM IBUS REGISTER 14 

;PUT EXPECTED IN R5 

;PUT "FOUND" INTO R4 

:DATA CORRECT? 

;BR IF YES 

; ERROR 

;SW09=1? 

.•CLEAR CARRY 

;SHIFT BIT IN RO 

;IF R0=0 THEN DONE 

.■NEW SCOPl 

.•START WITH BIT 0 

; CHANGE TO FLOATING ZERO 

;PUT PATTERN INTO P0RT4 

;NEXT WORD IS INSTRUCTION. RONCLK PC=5304 

:N0V DATA TO IBUS REGISTER 14 

;NEXT WORD IS INSTRUCTION. ROHfLK PC=5304 

;READ FROM IBUS REGISTER 14 

;PUT EXPECTED IN R5 

;PUT "FOUND" INTO R4 

:DATA CORRECT? 

;BR IF YES 

.•ERROR 

;SW09=1? 

; CHANGE TO FLOATING 1 
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3278 

3279 

3280 

3281 

3282 

3283 

5284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

33<|1 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 



015304 
015306 
015310 



015312 
015514 
015322 

015330 
015332 
015334 
015336 
015342 
015346 
015350 
015352 
015354 



015354 
015356 
015364 

015372 
015374 
015376 
015400 
015404 
015410 
015412 
015414 
015416 



000241 
106100 
001356 



000004 
012737 
012737 

104410 
104412 
021324 
016104 
113705 
120504 
001401 
104031 



000004 
012737 
012737 

104410 
104412 
021344 
016104 
113705 
120504 
001401 
104031 
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LINE UNIT yRITE/REAO TESTS 

CLC 

ROLB RO 
BNE 69S 



C 6 



SEQ 0067 



.-CLEAR CARRY 
:SHIFT BIT IN RO 
:IF R0=0 THEN DONE 



000011 
015354 



000004 
002052 



001202 
001442 



-****************««*******•* TEST 11 ••••#•***#*•«*••«•*•••*#••• 

•SWITCH PAC TEST 
;*TH1S TEST READS SWITCH PAC#1 
;*THIS SWITCH PAC CONTAINS THE DDCHP LINE » 
i : • w 

; TEST 11 
fsTll: SCOPE 

HOV #11.»TSTNH ; LOAD THE NO. OF THIS TEST 

HOV #TST12.NEXT ; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC 11 ADDRESS 
HSTCLR ;HASTER CLEAR KNCll 

ROMCLK .NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 

021324 ;P0RT4 LU15 

NOV 4(R1).R4 ;PUT "TOUND" IN R4 

nOVB STAT2.R5 ;PUT "EXPECTED" IN R5 

CnPB R5,R4 ;SW OK? 

BEO It ;BR IF YES 

ERROR 31 .-ERROR, SWITCH PAC READ ERROR 

1$: 

;***tt*«*t****t****«*****t«* TEST 12 • • 

.-•SWITCH PAC TEST 

.-•THIS TEST READS SWITCH PAC#2 

.-•THIS SWITCH PAC CONTAINS THE Bn873 BOOT ADD 

;:•••♦••♦♦«♦••••♦•••»*••••••••••••*••••••••••••••••*••••*••••••♦ 

; TEST '.2 



************** 



000012 
015416 



000004 
002053 



001202 
001442 



TST12! 



1$: 



SCOPE 

nov 
nov 

nSTCLR 
ROMCLK 
021344 

nov 

NOVB 
CNPB 
BEO 
ERROR 



#12,$TSTNH 
#TST13,NEXT 



4(R1),R4 

STAT2*1,R5 

R5.R4 

IS 

31 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC 11 ADDRESS 

.-MASTER CLEAR KBCll 

.-NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 

;P0RT4 LU16 

;PUT "TOUND" IN R4 

;PUT "EXPECTED" IN R5 

:SW OK? 

;BR IF YES 

.-ERROR, SWITCH PAC READ ERROR 



••♦#•*♦♦**••#•♦*••«•♦*•»••*• TEST 13 •*••••••*< 

••LINE UNIT CLOCK TEST 

.-•THIS TEST VERIFYS THAT THE LU INTERNAL CLOCK 



CZKCE 


MACYll 


CZHCt.PlI 08 


3334 




3335 




3336 




3337 




3338 




3339 




3340 


015416 


3341 


015420 


3342 


015426 


3343 




3344 


015434 


3345 


015436 


3346 


015442 


3347 


01 54'«2 


3348 


015444 


3349 


015446 


3350 


015454 


3351 


015456 


3352 


015462 


3353 


01 5464 


3354 


01 5466 


3355 


015472 


3356 


015472 


3357 


01 5474 


3358 


015476 


3359 


015504 


3360 


015506 


3361 


015512 


336<? 


015514 


3363 


015516 


3364 




3365 




3366 




3367 




3368 




3369 




3370 




3371 




3372 




3373 




3374 




3375 




3376 


015516 


3377 


015520 


3378 


015526 


3379 




3380 


015534 


5381 


015556 


3382 


015542 


3585 


01 5550 


3384 


015552 


5385 


015554 


3386 


015556 


3387 


015560 


3388 


015564 


3389 


015570 



08-JUL-80 08:24 PAGE 69 
:24 LINE UNIT WRITE/READ TESTS 



D 6 



SEO 0068 



000004 
012757 
012757 

104410 
005037 

104412 
021364 
032761 
001004 
005237 
001367 
104004 
005037 

104412 
021364 
032761 
001404 
005257 
001567 
104004 



000004 
012757 
012757 

104410 
012711 
012761 
104412 
122111 
104412 
122110 
104414 
012702 
104412 



.••(BIT 1 IN LU-17) IS WORKING 



TEST 15 



000015 001202 
015516 001442 



011254 

000002 000004 
011254 

011254 

000002 000004 
011254 



HOv''^ #15,$TSTN« ; LOAD THE NO. OF THIS TEST 

HOV fTSTU.NEXT ; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KHCll ADDRESS 
HSTCLR .-HASTER CLEAR KHCll 

CLR TEMP .-PREPARE FOR DELAY 



1$. 



2t: 
5S: 



4$: 



000014 
015616 



004000 
000001 



000002 
000017 



001202 
001442 



000004 



ROMCLK 

021564 

BIT 

BNE 

INC 

BNE 

ERROR 

CLR 

ROMCLK 

021564 

BIT 

BEQ 

INC 

BNE 

ERROR 



#2,4(91) 
2S 

TEHP 
1$ 

4 

TEHP 



#2,4(R1) 

4$ 

TEHP 

5$ 

4 



;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 
;P0RT4 LU-17 
;IS ClOCK bit SET? 
;BR IF YES 
.•DELAY 
;DELAY FINISHED? 

.-ERROR BIT IS STUCK CLEAR 
;PREPARE FOR DELAY 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;P0RT4 LU-17 
:IS CLOCK BIT CLEAR? 
;BR IF YES 
;DELAY 

;BR IF DELAY NOT DONE 
;£RROR BIT IS STUCK SET 



TEST 14 

;*OUT DATA SILO TEST 

;*SET SOB AND LOAD OUT DATA SILO 

;«VERIFY THAT OCOR SET. INDICATING THAT THE 

; •CHARACTER IS AT THE BOTTOM OF THE OUT SILO 



TEST U 



TST14: SCOPE 

HOV f14.$TSTN« 
nOV #TST15.MEXT 



HSTCLR 

nov 

MOV 

ROnCLK 

122111 

ROnCLK 

122110 

TIMER. 

MOV 

ROnCLK 



#BIT11.(R1) 
f1,4(Rl) 



2 

#17. R2 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

:HASTER CLEAR KHC11 

;SET LINE UNIT LOOP 

;L0AD P0RT4 WITH BITO 

.NEXT WORD IS INSTRUCTION, ROHCLK PC=5504 
'SET SOH 

InEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
:L0AD OUT DATA SILO 
;UAIT FOR OCOR 

;SAVE ADDRESS FOR TYPEOUT 

;N£XT WORD IS INSTRUCTION. ROMCLK PC=5504 



CZKCE 




30A(1052) 08-JlJ 




-JUL-80 


08:24 


3390 


Ai Ct.7'% 


02156'. 




5591 


A1 CC7/ 

01 55 


016104 


000004 


559Z 


01 5600 


042704 


000557 


5395 


01 5oU*» 


012705 


000020 


55V* 


U1501U 


120504 




5595 


U1501* 


001401 




55tO 


U 1 50 1 H 


104005 




TT07 


U 1 50 I o 






55tO 
















XLf\(\ 








JhU 1 








5hu«: 
























5h05 
















XLt\7 
























>*• 1 u 


U 1 50 1 0 


000004 




TA 1 1 


m ^<»5n 


012737 


000015 


5h1 c 


\) 1 50cO 


012737 


015754 


5h1 5 








3«» 1 


U 1 505h 


104410 




TA 1 ^ 

3»t 1 > 


U 1 5050 


012711 


004000 


5*» 10 


U 1 50«»c 


012761 


000001 




U 1 505U 


104412 




XL Ml 


U 1 50 


122111 






U 1 505<> 


104412 




XL 7n 


ni ^ASA 


122110 




TA51 


ni SAAn 

U 1 500U 


004737 


030260 


XLJ7 

JHCC 




104413 


000002 




ni SA7n 


012702 


000011 


XLOL 


ni SA7^ 
U 1 50 » 


104412 




TA5S 


ni ^A7A 


021224 




J"«c0 


ni S7nn 

U 1 5 f vv 


016104 


000004 


XL) 7 


ni S7nA 


042704 


000257 




ni S7in 


012705 


000120 


XLOQ 


ni S7i£ 


120504 






ni S71 A 

V 1 5 ' 1 0 


001401 




j*» J 1 


ni S7?n 


104005 




>** jf. 


ni S7?5 




000015 




ni S7?? 


012702 


XL XL 


ni S75A 

U 1 5 ' CO 


104412 




3 J 


ni ^7Xn 


021264 




J** jO 




016104 


000004 




V \ J f JO 


042704 


000337 


iH JO 


ni ^7^5 

U 1 5» ••C 


012705 


000040 




015746 


120504 




3440 


015750 


001401 






015752 


104005 




5442 


015754 






3443 








3444 








3445 
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BASIC TRANSMITTER TESTS 



E 6 



SEO 0069 



1$: 



001202 
00U42 



021364 

MOV 

BIC 

MOV 

fMPB 

BEQ 

ERROR 



4(R1),R4 
#557. R4 
#20, R5 
R5.R4 
U 
5 



;P0RT4 LU 17 

;PUT 'TOUND" IN R4 

.-CLEAR UNWANTED BITS 

;PUT ••EXPECTED'" IN R5 

;IS OCOR SET? 

;BR IF YES 



TEST 15 •••••• • 

;*DDCHP TEST OF RTS AND OUT ACTIVE 
;*SET SOW AND LOAD OUT DATA SILO 
;*S1NGLE STEP 2 DATA CLOCKS. VERIFY 
.••THAT RTS AND ACTIVE ARE SET 

; TEST 15 

TST15: SCOPE 

MOV #15,STSTNM ; LOAD THE NC. OF THIS TEST 

MOV #TST16,NEXT ; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

MSTCLR .-MASTER CLEAR KMC11 

MOV #BIT11,(R1) .-SET LINE UNIT LOOP 

MOV #1.4(R1) .-LOAD P0RT4 WITH BITO 

ROMCLK .-NEXT WORD IS INSTRUCTION, ROHCLK PC=5504 

122111 :SET SOM ^ 

ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 

122110 :LOAD OUT DATA SILO 

JSR PC. OCOR .-WAIT FOR OCOR 

DATACLK, 2 .-CLOCK DATA FOUR TIMES 

MOV f11,R2 ;SAVE ADDRESS FOR TYPEOUT 

ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

021224 ;P0RT4 LU 11 

MOV 4(R1).R4 ;PUT 'TOUND" IN R4 

BIC #257, R4 ;CLEAR UNWANTED BITS 

MOV #120, R5 ;PUT ••EXPECTED" IN R5 

CMP8 R5.R4 ;IS ACTIVE SET? 

BEQ IS :BR IF YES 

ERROR 5 

IS: 

MOV f15.R2 .SAVE ADDRESS FOR TYPEOUT 

ROMCLK ,-NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

021264 ;P0RT4 LU 13 

MOV 4(R1).R4 ;PUT ERPECTED IN R4 

BIC #537. R4 .CLEAR UNWANTED BITS , 

MOV #BIT§.R5 .-PUT •'EXPECTEO" IN R5. RTS SHOULD BE SET 

CHPB R5.R4 ;IS RTS OK? 

BEQ 2S ;BR IF YES 

ERROR 5 ;RTS ERROR 

2S: 

;.t TEST 16 
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3448 








3449 








3450 








3451 








3452 








3453 








3454 








3455 


015754 


000004 




3456 


015756 


012737 


000016 


3457 


015764 


012737 


016152 


3458 








3459 


015772 


104410 




3460 


015774 


012711 


004000 


3461 


016000 


012761 


000001 


3462 


016006 


104412 




346 3 


016010 


122111 




3464 


016012 


104412 




3465 


016014 


122110 




3466 


016016 


004737 


030260 


3467 


016022 


104413 


000002 


3468 


016026 


012761 


000200 


3469 


016034 


10<>412 




3470 


016036 


122111 




3471 


016040 


104413 


000001 


3472 


016044 


012702 


000017 


3473 


016050 


104412 




3474 


016052 


021364 




3475 


016054 


016104 


000004 


3476 


016060 


042704 


000357 


3477 


016064 


005005 




3478 


016066 


120504 




3479 


016070 


001401 




3480 


016072 


104005 




3481 


016074 






3482 


016074 


012702 


000013 


3483 


016100 


104412 




3484 


016102 


021264 




3485 


016104 


016104 


000004 


3486 


016110 


042704 


000537 


3487 


016114 


005005 




3488 


016116 


120504 




3489 


016120 


001401 




3490 


016122 


104005 




3491 


016124 






3492 


016124 


012702 


000011 


3493 


016150 


104412 




3494 


016152 


021224 




5495 


016154 


016104 


000004 


3496 


016140 


012705 


000020 


3497 


016144 


120504 




5498 


016U6 


00U01 




5499 


016150 


104005 




3500 


016152 






5501 
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BASIC TRANSMITTER TESTS 



SEQ 0070 



001202 
001442 



TST16: 



1$: 



2$: 



3$: 



•TEST or OUT CLEAR 

•SET son AND LOAD OUT DATA SILO 

•SINGLE STEP DATA CLOCK. SET OUT CLEAR 

•VERIFY THAT OCOR.RTS. AND ACTIVE ARE CLEARED 



TEST 16 



SCOPE 

MOV 

MOV 



«16,STSTMn 
#TST17,NEXT 



MSTCLR 
MOV 
MOV 

ROMCLK 
122111 
ROMCLK 
122110 
JSR 

OATACLK. 2 
MOV #BIT7,4(R1) 
ROMCLK 
122111 

DATACLK. 1 



fSITII ,(R1) 
#1,4(R1) 



PC.OCOR 



MOV 
ROMCLK 
021364 
MOV 
BIC 
CLR 
CMPB 
BEQ 
ERROR 

MOV 

ROMCLK 

021264 

MOV 

BIC 

CLR 

CMPB 

BEO 

ERROR 

MOV 

ROMCLK 

021224 

MOV 

MOV 

CMPB 

BEO 

ERROR 



#17. R2 



4(Rn.R4 
#357, R4 

R5 

R5,R4 
It 

5 

#13, R2 



4(R1),RA 
#337. R4 
R5 

R5.R4 

2S 

5 

#11. R2 



4{n1).R4 

#BIT4,R5 
R5,R4 
5S 
5 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

R1 CONTAINS BASE KMC11 ADDRESS 

MASTER CLEAR KMC11 

SET LINE UNIT LOOP 

LOAD P0RT4 WITH BITO 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
SET SON 

NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

LOAD OUT DATA SILO 

WAIT FOR OCOR 

CLOCK DATA FOUR TIMES 

SET L,T7 IN P0RT4 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 

SET OUT CLEAR 

GIVE A TICK TO CLEAR RTS 

SAVE ADDRESS FOR TYPEOUT 

NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

P0RT4 LU 17 

PUT 'fOUND" IN R4 

CLEAR UNWANTED BITS 

PUT ■•EXPECTED" IN R5 

IS OCOR CLEARED? 

BR IF YES 



SAVE ADDRESS FOR TYPEOUT 

NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

P0RT4 LU 13 

PUT EXPECTED IN R4 

CLEAR UNWANTED BITS 

PUT 'tXPECTED" IN R5. RTS SHOULD BE CLEARED 
IS RTS OK? 
BR IF YES 
RTS ERROR 

SAVE ADDRESS FOR TYPEOUT 

NEXT WORD IS INSTRUCTION, ROMCLK PC:5504 

P0RT4 LU11 

PUT 'TOUNO" IN R4 

ONLY OUT READY SHOULD BE SET 

IS ACTIVE CLEAR? 

BR IF YES 

ERROR ACTIVE NOT CLEARED 
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ij\m 
























350V 








m A 








T<;1 1 

33 1 1 








J3 1 C 








3 J 1 3 








ICI L 
35 1*» 


m 1 CO 
U 10 1 5c 


AAOAA^ 


oooni 7 

wvwv 1 ' 


3? 1 J 


ni Ai 


01 57X7 


3 jl 0 


ni A1 A5 


01 57X7 


016XX4 


3 J 1 ' 








3)lo 


ni Ai 7n 


10^^10 




3> IT 


75 

UIO 1 f £ 


01 5711 

w 1 Cl 1 ' 


004000 


35cO 


V 10 1 ' 0 


00A7X7 

M\1H 1 31 


0X041 5 


H51 

3JC 1 


niA5n5 


01 57A1 

U 1 C ' O 1 


000001 


3)C£ 


m A510 
U 1 Oc 1 u 


\r\LL \ 5 




37£3 


A1 A51 5 
U lOc 1 C 


1 551 1 1 
1 cc 1 I I 




35c*» 


UIOc 


01 570S 


ooonon 


35c5 


A1 A550 
U1 OccU 


00<.7X7 


0X041? 


iiCO 


A1 A55£ 
UiOcc** 


OIO^AI 


000004 


3>C f 


U 1 Oc5U 


1 A/,/ 1 5 




JJCO 


U I0c5c 


1 551 10 
1 cc 1 1 w 






U 1 OCj** 


ww% f 31 


0X0?60 


^slo 


\1 1 OC'*w 






J J J 1 


U IOt'»C 


01050? 






ni A5^^ 


10441X 


000002 

WwVVC 


J J J J 


A1 /.5cn 




000001 




w 1 Oc 3H 


10A007 






01 A5^A 


10X005 






01 A5An 


0047X7 


0X0??6 

V JVC C w 


X^X7 




10X406 

1 W WW 




jjjO 


ni 

u 1 ocoo 


104006 




JJJT 


U 1 Oc f w 


000404 






w 1 OC r C 


0047X7 


w JvC C w 




V 1 Oc ' o 








AIATAA 
U I O JVV 


1 wo 






U 1 OvwC 








01 ATA? 
U 1 O JVC 


00S701 


000010 

WW Vw < w 




ni Axn/i 

U 1 O JVH 






01 AXin 

U 1 0 J I w 


001 ^S7 

WW t JJ t 






01 AX1 5 

w 1 Q J 1 C 


10441 ^ 


000014 

Www 1 




01 AX1 A 

w 1 0 J I O 


10441? 






w 1 O JCv 


0?1?64 

wC < CO** 






01 AX?? 

w lO'JCC 


0X?761 


000040 

wVW~ V/ 


3551 


016330 


001401 




3552 


016332 


104034 




S553 


016334 






3554 








3555 








3556 








3557 
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BASIC TRANSMITTER TESTS 



G 6 



SEO 0071 



;•*•**•«««•*•*•*•**•***••••* TEST 17 .............. 

;*OOC«P TRANSMITTER TEST 

.■•SINGLE CLOCK THE CHARACTER 0 

.••VERIFY EACH BIT POSITION AS IT 

.-•PASSES THE BIT UINDOU (SI BIT) 

:*0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 



TEST 17 



iST 



tt ******************************************* ***************** 



17: 



1S: 



2$: 
5$: 



4S: 



SCOPE 

mv 

MOV 

HSTCLR 

MOV 

JSR 

MOV 

ROMCLK 

122111 

MOV 

JSR 

MOV 

ROMCLK 

122110 

JSR 

CLR 

MOV 

DATACLK 
DATACLK 
RORB 

see 

JSR 

BCS 

ERROR 

BR 

JSR 

BCC 

ERROR 



#17.$TSTMH 
«TST20,NEXT 



fBITII .(R1) 

PC.OUTRDY 

«1,4(R1) 



«0,R5 :LOAD 

PC.OUTRDY 
R5.4(R1) 



PC.OCOR 
R3 

R5,R2 



R2 
2$ 

PCGETSl 

3$ 

6 

3$ 

PC.GETSI 

3S 

6 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

;MASTER CLEAR KMC11 

;SET LINE UNIT LOOP 

.•WAIT FOR OUT-READY 

;SET BITO IN P0RT4 

.-NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
.-SET SOM! 
CHARACTER IN R5 FOR TYPEOUT 
;UA1T FOR OUT-READY 
;LOAD P0RT4 UITH CHARACTER 
;NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 
;LOAD OUT DATA 
.•WAIT FOR OCOR TO SET 
.•CLEAR BIT COUNTER 
.•LOAD CHARACTER IN R2 
;2 TICKS TO SET UP TRANSMITTER 
:SHIFT NEXT BIT IN THE UINDOU (SI BIT) 
.•SHIFT NEXT SOFTUARE BIT IN TO CARRY 
;BR IF CARRY CLEAR 
.GET THE UINDOU 
;BR IF BIT IS A MARK 
: ERROR BIT UAS A SPACE 
.•CONTINE UITH TEST 
:GET THE UINDOU 
:BR IF BIT IS A SPACE 
: ERROR BIT UAS A MARK 



INC R3 
CMP #10, R5 
BNE U 
DATACLK, 
ROMCLK 



14 



021264 
BIT 
BEO 
ERROR 



fBIT5.4(R1) 

4$ 

34 



;NEXT BIT 
:DONE YET? 
:BR IF NO 

.•CLOCK TRANSMITTER U MORE 
;NEXT UORD IS INSTRUCTION. 
;P0RT4 LU-13 

;RTS SOOULD BE CLEAR NOU 
;BR IF YES 

;ERROR, RTS NOT CLEAR 



TICKS 
ROMCLK 



PC=5304 



;*DDCMP TRANSMITTER TEST 



TEST 20 



H 6 

CZKCE MACYll 30A(1052) 08- JUL -80 08.24 PACE 73 

CZKCE.P11 08-JUL-80 08:24 BASK TRANSHITTtR TESTS 

3558 ;*SIN6LE CLOCK THE CHARACTER 125 

3559 .-•VERIFY EACH BIT POSITION AS IT 

3560 :*PASSES THE BIT WINDOW (SI BIT) 

3561 :*0N AN ERROR. R3 CONTAINS BIT POSITION OF FAILURE 

3562 

3564 : TEST 20 

3565 : 

3567 016334 000004 TST20: SCOPE 

3568 016536 012737 000020 001202 «0V i20,STSTNM ; LOAD THE NO. OF THIS TEST 

5569 016544 012757 016516 001442 «0V #TST21.NEXT . POINT TO THE START OF NEXT TEST. 

3570 ;R1 CONTAINS BASE KMC11 ADDRESS 

5571 016552 104410 MSTCLR ;HASTER CLEAR KHC11 

5572 016354 012711 004000 MOV #BIT11.(R1) ;SET LINE UNIT LOOP 

5573 016360 004757 030412 JSR PC.OUTRDY ;WAIT FOR OUT-READY 

5574 016564 012761 000001 000004 «0V #1,4(R1) .SET BITO IN P0RT4 

5575 016572 104412 ROHCLIC .-NEXT WORD IS INSTRUCTION. ROMCLK PC = S504 

5576 016574 122111 122111 ;SET SOMl 

5577 016576 012705 000125 HOV #125. R5 ;LOAD CHARACTER IN R5 FOR TYPEOUT 

5578 016402 004757 030412 JSR PC.OUTRDY :WAIT FOR OUT-READY 

5579 016406 010561 000004 HOV R5.4{R1) ;LOAD P0RT4 WITH CHARACTER 

3580 016412 104412 RO«CLK .-NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 

5581 016414 122110 122110 ;LOAD OUT DATA 

3582 016416 004757 050260 JSR PC.OCOR .-WAIT FOR OCOR TO SET 

5585 016422 005005 CLR R3 ;CLEAR BIT COUNIER 

3584 016424 010502 MOV R5,R2 ;LOAD CHARACTER IN R2 

3585 016426 104415 000002 DATACLK. 2 ;2 TICKS TO SET UP TRANSMITTER 

5586 016432 104413 000001 1$: DATACLK, 1 jSHIFT NEXT BIT IN THE WINDOW (SI BIT) 
3587 016456 106002 RORB R2 ;SHIFT NEXT SOFTWARE BIT IN TO CARRY 
5588 016440 103005 BCC 2S ;BR IF CARRY CLEAR 

35f>9 016442 004737 030226 JSR PC.GETSl ;GET THE WINDOW 

5590 016446 105406 BCS 3S ;BR IF BIT IS A MARK 

3591 016450 104006 ERROR 6 .-ERROR BIT WAS A SPACE 

5592 016452 000404 BR 3S ;CONTINE WITH TEST 

5593 016454 004757 050226 2$: JSR PC.GETSl ;GET THE WINDOW 

3594 016460 103001 BCC 3$ ;BR IF BIT IS A SPACE 

3595 016462 104006 ERROR 6 .-ERROR BIT WAS A MARK 

3596 016464 3S: , , 

3597 016464 005203 INC R3 , ;NEXT BIT 

3598 016466 022703 000010 CMP #10. R3 ;DONE YET? 

3599 016472 001 557 BNE IS :BR IF NO 

5600 016474 104413 000014 OATACLK . U ;CLOCK TRANSMITTER 14 MORE TICKS ^, 

3601 016500 104412 ROMCLK ;NEXT WORD IS INSTRUCTION. ROMCLK PC-53C4 

5602 016502 021264 021264 ;P0RT4 LU-13 

5605 016504 052761 000040 000004 BIT #BIT5.4(R1) ;RTS SflOULO BE CLEAR NOW 

3604 016512 001401 BEG 4S ;BR IF YES 

3605 016514 104034 ERROR 34 ;ERROR, RTS NOT CLEAR 

3606 016516 4$: 
3607 

5608 ^ „ 

3609 ;t.*.«*.«.t***»*t..**.tt«.*t TEST 21 

3610 .-•DDCHP TRAMSHITTER TEST 

3611 .-•SINGLE CLOCK THE CHARACTER 252 

3612 .-•VERIFY EACH BIT POSITION AS IT 

3613 :*PASSES THE BIT WINDOW (SI BIT) 



SEO 0072 



1 6 
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36U :*0N AN ERROR, R5 CONTAINS BIT POSITION OF FAILURE 

3615 ;: •••••• ••••• •••• • 

3616 

3617 ; TEST 21 
5618 

3619 ;;• • ••••• • ttt. 

3620 016S16 000004 TST21 : SCOPE 

5621 016520 012737 000021 001202 HOV #21.tTSTNH ; LOAD THE NO. OF THIS TEST 

3622 016526 012737 016700 00U42 HOV #TST22.NEXT ; POINT TO THE START OF NEXT TEST. 

3623 ;R1 CONTAINS BASE KMCll ADDRESS 

3624 016534 104410 HSTCLR .-MASTER CLEAR KHC11 

3625 016536 012711 004000 MOV fBIT11,(R1) .SET LINE UNIT LOOP 

3626 016542 004737 030412 JSR PC.OUTRDY ;UA1T FOR OUT-READY 

3627 016546 012761 000001 000004 MOV #1,4(R1) ;SET BITO IN P0RT4 

3628 016554 104412 ROMCLK .-NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

3629 016556 122111 122111 ;SET SOM! 

5630 016560 012705 000252 MOV #252. R5 ;LOAD CHARACTER IN R5 FOR TYPEOUT 

3631 016564 004737 030412 JSR PC.OUTRDY ;UAIT FOR OUT-READY 

3632 016570 010561 000004 MOV R5.4(R1) ;LOAD PORTA WITH CHARACTER 

3633 016574 104412 ROMCLK .-NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3634 016576 122110 122110 ;LOAD OUT DATA 

3635 016600 004737 030260 JSR PC.OCOR ;UAIT FOR OCOR TO SET 

3636 016604 005003 CLR R3 .-CLEAR BIT COUNTER 

3637 016606 010502 MOV R5.R2 ;LOAD CHARACTER IN R2 

3658 016610 104413 000002 DATACLK. 2 ;2 TICKS TO SET UP TRANSMITTfR 

3639 016614 104413 000001 1$: DATACLK, 1 .-SHIFT NEXT BIT IN THE WINDOW (SI BIT) 

3640 016620 106002 RORB R2 ;SHIFT NEXT SOFTWARE BIT IN TQ CARRY 

3641 016622 103005 BCC 2t ;BR IF CARRY CLEAR 

3642 016624 004737 030226 JSR PC.GETSI ;GET THE WINDOW 

3643 016530 103406 BCS 5» ; BR IF BIT IS A MARK 

3644 016632 104006 ERROR 6 .ERROR BIT WAS A SPACE 

3645 016634 000404 BR 3S ;CONTINE WITH TEST 

3646 016636 004737 030226 2$: JSR PC.GETSI ;6ET THE WINDOW 

3647 016642 103001 BCC 1% ;BR IF BIT IS A SPACE 

3648 016644 104006 ERROR 6 .ERROR BIT WAS A MARK 

3649 016646 3S: 

3650 016646 005203 INC R3 .-NEXT BIT 

3651 016650 022703 000010 CMP #10. R5 ;DONE YET? 

3652 016654 001357 BNE IS ;BR IF NO 

3653 016656 104413 OOOOU DATACLK, 14 ;CLOCK TRANSMITTER 14 MORE TICKS 

3654 016662 104412 ROMCLK .-NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

3655 016664 021264 021264 ;P0RT4 LU-13 

3656 016666 032761 000040 000004 BIT fBIT5.4(R1) ;RTS SROULD BE CLEAR NOW 

3657 016674 OOUOl BEO 4t ;BR IF YES 

5658 016676 104054 ERROR 54 ; ERROR. RTS NOT CLEAR 

5659 016700 4S: 
5660 

5662 ; TEST 22 

5665 .-•ODCMP TRANSMITTER TEST 

5664 .-•SINGLE CLOCK THE CHARACTER 577 

3665 .-•VERIFY EACH BIT POSITION AS IT 

3666 .••PASSES THE BIT WINDOW (SI BIT) 

3667 .••ON AN ERROR. R3 CONTAINS BIT POSITION OF FAILURE 

3668 ;:•••••••.••.•#•••••••••••••%.••..••..•••..••••.•.••••• 

3669 



SEQ 0073 
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J 6 



SEO 0074 



3670 

3671 

3672 

3673 

3674 

3671 

3676 

5677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

5721 

3722 

5723 

5724 

5725 



TEST 22 



016700 
016702 
016710 

016716 
016720 
0^6724 
016730 
016756 
016740 
016742 
016746 
016752 
016756 
016760 
016762 
016766 
016770 
316772 
016776 
017002 
017004 
017006 
017012 
C17014 
017016 
017020 
017024 
017026 
017050 
017050 
017052 
017056 
017040 
017044 
017046 
017050 
017056 
017060 
017062 



000004 
012757 
012757 

104410 
012711 
004757 
012761 
104412 
122111 
012705 
004757 
010561 
104412 
122110 
004737 
005005 
010502 
104415 
104415 
106002 
10500; 
004757 
105406 
104006 
000404 
004757 
105001 
104006 

005205 
022705 
001557 
104415 
104412 
021264 
052761 
001401 
104054 



000022 001202 
017062 001442 



004000 
050412 

000001 000004 



TST22: 



000577 
050412 
000004 



050260 



000002 
000001 



050226 
050226 

000010 
000014 

000040 000004 



1$; 



2$: 



5S: 



4S: 



SCOPE 
TOV 
HOV 

MSTCLR 

MOV 

JSR 

MOV 

ROMCLK 

122111 

nov 

JSR 
HOV 

ROHCLK 

122110 

JSR 

CLR 

MOV 

OATACLK, 

OATACLK, 

RORB 

BCC 

JSR 

BCS 

ERROR 

BR 

JSR 

BCC 

ERROR 



«22,tTSTNn 
«rST25,NEXT 



#BIT11,(R1) 

PC.OUTROY 

f1,4(Rl) 



#377. R5 .-LOAD 

PCOUTRDY 

R5,4(R1) 



PC.OCOR 
R5 

R5.R2 



R2 
2t 

PCGETSl 

3$ 

6 

3S 

PC.GETSI 

3S 

6 



INC R3 

CMP #10. R5 

BNE IS 

OATACLK, 14 

ROHCLK 

021264 

BIT #B1T5,4(R1) 

BEQ 4t 

ERROR 54 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KHC11 ADDRESS 

.-MASTER CLEAR KMC11 

;SET LINE UNIT LOOP 

;UAIT FOR OUT-READY 

;SET BITO IN P0RT4 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
.-SET SOM! 
CHARACTER IN RS FOR TYPEOUT 
.•WAIT FOR OUT-READY 
.'LOAD P0RT4 WITH CHARACTER 
.■NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 
.•LOAD OUT DATA 
.-WAIT FOR OCOR TO SET 
.•CLEAR BIT COUNTER 
;LOAD CHARACTER IN R2 
;2 TICKS TO SET UP TRANSMITTER 
.•SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
.-SHIFT NEXT SOFTWARE BIT IN TO CARRY 
:BR IF CARRY CLEAR 
.'GET THE WINDOW 
:BR IF BIT IS A MARK 
: ERROR BIT WAS A SPACE 
.-CONTINE WITH TEST 
.-GET THE WINDOW 
:BR IF BIT IS A SPACE 
; ERROR BIT WAS A MARK 

;NEXT BIT 
.-DONE YET? 
- BR IF NO 

•CLOCK TRANSMITTER 14 MORE T,CKS 

.'NEXT WORD IS INSTRUCTION, ROHCLK PC = 5304 

;P0RT4 LU-13 

;RTS SHOULD BE CLEAR NOW 
;BR IF YES 

: ERROR, RTS NOT CLEAR 



•••••••••••*••••«••••••«*•« TEST 25 •••••••••••*•< 

*DDCNP TRANSMITTER TEST 

*SINGIE CLOCK A BINARY COUNT PATTERN 

•VERIFY EACH BIT POSITION AS IT 

•PASSES THE BIT UlNDOy (SI BIT) 

*0N AN ERROR, R5 CONTAINS BIT POSITION OF FAILURE 

*AND RS CONTAINS THE CHARACTER THAT FAILED 



TEST 25 
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K 6 



SEQ 0075 



3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3756 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 



017062 000004 
017064 012737 
017072 012737 



017100 
017102 
017106 
017110 
017112 
017114 
017120 
017126 
017130 
017132 
017136 
017142 
01 7U4 
017146 
017150 
017154 
017160 
017162 
017164 
017170 
017174 
017176 
017200 
017204 
017206 
017210 
017214 
017216 
017220 
017222 
017226 
01 7230 
017232 
017232 
017234 
017240 
017242 
017244 
017250 
017254 
017256 
017260 
017262 
017266 
017270 



104410 
012711 
005003 
005004 
005005 
004737 
012761 
104412 
122111 
004737 
010461 
104412 
122110 
005204 
004737 
010461 
104412 
122110 
004737 
104413 
005003 
010502 
104413 
106002 
103005 
004737 
103406 
104006 
000404 
004737 
103001 
104006 

005203 
022703 
001357 
005204 
004737 
010461 
104412 
122110 
005205 
022705 
001342 



000023 001202 
017270 001442 



004000 



030412 

000001 000004 



TST23: 



030412 
000004 



030412 
000004 



030260 
000002 



000001 
030226 

030226 
000010 



030412 
000004 



000400 



4$: 
1$: 



2$: 
3$: 



5$: 



SCOPE 




HOV 


f23,STSTNn 


HOV 


«TST24.NEXT 


nSTCLR 




HOV 


fBITII.(RI) 


CLR 


R3 


CLR 


R4 


CLR 


R5 


JSR 


PC.OUTRDY 


nov 


iri,4(R1) 


ROnCLK 




122111 




JSR 


PC.OUTRDY 


MOV 


R4.4(R1) 


ROnCLK 




122110 




INC 


R4 


JSR 


PC.OUTRDY 


nov 


R4,4{R1) 


ROMCLK 




122110 




JSR 


PC.OCOR 


DATACLK, 2 


CLR 


R3 


HOV 


R5.R2 


DATACLK. 1 


RORB 


R2 


BCC 


2S 


JSR 


PC.GETSI 


BCS 


3S 


ERROR 


6 


BR 


3S 


JSR 


PC.GETSI 


BCC 


3S 


ERROR 


6 


INC 


R3 


CMP 


«10,R3 


BNE 


IS 


INC 


R4 


JSR 


PC.OUTRDY 


HOV 


R4.4(R1) 


ROMCLK 




122110 




INC 


R5 


CMP 


#400, R5 


BNE 


4$ 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START CF NEXT TEST. 

;R1 CONTAINS BASE KHC11 ADDRESS 

;HASTER CLEAR KMC11 

.SET LINE UNIT LOOP 

:R3 CONTAINS BIT COUNT 

:R4 CONTAINS CHAR TO BE LOADED IN SILO 

;R5 CONTAINS CHARACTER CURRENTLY BEING SHIFTED OUT 

;UAIT FOR OUT-READY 

;SET BITO IN P0RT4 

.NEXT UORD IS INSTRUCTION. ROMCLK PC=5304 
;SET SOM! 

;UAIT FOR OUT-READY 

.•LOAD P0RT4 WITH CHARACTER 

:NEXT UORD IS INSTRUCTION. ROMCLK PC=5304 

.-LOAD OUT DATA 

; INCREMENT TO NEXT CHARACTER 

:UAIT FOR OUT-READY 

:LOAD P0RT4 WITH CHARACTER 

;NEXT UORD IS INSTRUCTION, ROMCLK PC=5304 

:L0AD OUT DATA 

.-WAIT FOR OCOR TO SET 

;2 TICKS TO SET UP TRANSMITTER 

:CLEAR BIT COUNTER 

.-LOAD CHARACTER IN R2 

;SHIFT NEXT BIT IN THE UINDOU (SI BIT) 

;SHIFT NEXT SOFTWARE BIT IN TO CARRY 

:BR IF CARRY CLEAR 

:GET THE UINDOU 

:BR IF BIT IS A MARK 

.-ERROR BIT WAS A SPACE 

.-CONTINE UITH TEST 

;GET THE UINDOU 

:BR IF BIT IS A SPACE 

; ERROR BIT WAS A MARK 

;NEXT BIT 

;DONE YET? 

;BR IF NO 

;NEXT CHARACTER 

;WAIT FOR OUT-READY 

:LOAD P0RT4 WITH CHARACTER 

.-NEXT UORD IS INSTRUCTION. ROMCLK PC=5304 

;LOAD OUT DATA 

.•NEXT CHARACTER 

.-DONE YET? 

,-BR IF NO 



;**t*tttt*t«*t*««t*t*tt*t*t* TEST 24 
;*ODCMP STRIP SYNC TEST 
;*SET LU LOOP, SINGLE STEP 5 SYNCS. 
.••VERIFY THAT IN ACTIVE DOES NOT SET 
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L 6 



SEO 0076 



3782 

3783 

3784 

3785 

3786 

3787 

3788 

3789 

3790 

3791 

3792 

3793 

3794 

3795 

3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

3804 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3815 

3814 

3815 

3816 

38i7 

3818 

5819 

3820 

3821 

3822 

3823 

3824 

3825 

5826 

3827 

3828 

3829 

3830 

3831 

3834 
3835 
3836 
3857 



017270 
017272 
017500 

017506 
017510 
017314 
017320 
017324 
017326 
017332 
017334 
017356 
017342 
017546 
017550 
017552 
017354 
017356 



017556 
017560 
017566 

017374 
017376 
017402 
017406 
017412 
017414 
017420 
017422 
017424 
017430 
017454 
017440 
017442 
017444 
017446 



000004 
012737 
012737 

104410 
012711 
012702 
004757 
000005 
104413 
104412 
021244 
016104 
042704 
005005 
120504 
001401 
104040 



000004 
012737 
012737 

104410 
012711 
012702 
004737 
000005 
104413 
104412 
021244 
016104 
042704 
012705 
120504 
00U01 
104040 



000024 
017356 



004000 
000012 
030276 

000054 



000004 
000277 



001202 
001442 



TST24; 



IS: 



000025 
017446 



004000 
000012 
050276 

000064 



000004 
000277 
000100 



001202 
001442 



TST25i 



IS: 



TEST 24 



SCOPE 

nOV «24,STSTNn 
HOV #TST25,NEXT 

MSTCLR 

HOV #BIT11.(R1) 
nov #12,R2 
JSR PC, SYNC 
5 

DATACLK. 54 
ROnCLK 



021244 

nov 

BIC 

CLR 

CHPB 

BEQ 

ERROR 



4(R1),R4 
#277. R4 

R5 

R5,R4 

IS 

40 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST, 

R1 CONTAINS BASE KHCIl ADDRESS 

MASTER CLEAR KMCII 

SET LU LOOP 

SAVE LU REG FOR TYPEOUT 
SINGLE CLOCK 5 SYNC CHARACTERS 



NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

P0RT4 LU12 

PUT 'TOUND" IN R4 

CLEAR UNWANTED BITS 

PUT 'tXPECTED" IN R5 

IS ACTIVE CLEAR? 

BR IF YES 

ERROR ACTIVE IS NOT CLEAR 



; TEST 25 

;»DDCHP IN ACTIVE TEST 

.-•SET LU LOOP. SINGLE STEP 5 SYNCS AND A NON-SYNC (301) 
.••VERIFY THAT IN ACTIVE IS SET 



TEST 25 



SCOPE 

nov 
nov 



#25.STSTNH 
#TST26,NEXT 



nSTfLR 

nov «BIT11.(R1) 
nov fl2.R2 

JSR PC, SYNC 
5 

DATACLK. 64 
ROMCLK 



021244 

nov 

BIC 

nov 
cnpB 

BEQ 
ERROR 



4(R1).R4 

#277. R4 

#BIT6.R5 

R5.R4 

IS 

40 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

R1 CONTAINS BASE KHCll ADDRESS 

HASTER CLEAR KnCll 

SET LU LOOP 

SAVE LU REG FOR TYPEOUT 
SINGLE CLOCK 5 SYNC CHARACTERS 



.NEXT WORD IS INSTRUCTION, ROnCLK PC=5304 

;P0RT4 LU12 

;PUT 'TOUND" IN R4 

.-CLEAR UNWANTED BITS 

;PUT "EXPECTED" IN R5 
;IS ACTIVE SET? 
'BR IF YES 

•ERROR ACTIVE IS NOT SET 
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n 6 



SEO 0077 



5858 

5839 

3840 

3841 

3842 

3843 

5844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

3855 

3854 

5855 

3856 

3857 

3858 

3859 

3860 

5861 

3862 

3863 

3864 

3865 

3866 

5867 

5868 

5869 

5870 

5871 

5872 

5875 

5874 

3875 

5876 

5877 

3878 

3879 

3880 

3881 

3882 

3883 

5884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

5892 

3893 



01 7446 
017450 
017456 

017464 
017466 
017472 
017476 
017502 
017504 
017510 
017512 
017514 
017520 
017524 
017526 
017530 
017532 
017534 



017554 
017536 
017544 

017552 
017554 
017560 
017564 
017570 
017572 
017576 
017600 
017602 
017606 
017612 
017616 
017620 



000004 
012737 
012737 

104410 
012711 
012702 
004737 
000001 
104413 
104412 
021244 
016104 
042704 
005005 
120504 
001401 
104040 



000004 
012737 
012737 

104410 
012711 
012702 
004737 
000002 
104413 
104412 
021244 
016104 
042704 
012705 
120504 
001401 



000026 
017534 



004000 
000012 
050276 

000024 



000004 
000277 



000027 
017624 



004000 
000012 
030276 

000034 



000004 
000277 
000100 



001202 
001442 



TST26: 



1$: 



001202 
001442 



TST27: 



TEST 26 *••••••••••••••••< 

.••DDCHP IN ACTIVE TEST 

;*SET LU LOOP. SINGLE STEP 1 SYNC AND A NON-SYNC (501) 
:*VERIFY THAT IN ACTIVE DOES NOT SET 



TEST 26 



SCOPE 

NOV #26,STSTNn 
nOV «TST27.NEXT 

HSTCLR 

MOV #BIT11,(R1) 
HOV #12.R2 
JSR PC, SYNC 
1 

DATACLK, 24 
ROHCLK 



021244 
MOV 
BIC 
CLR 
CHPB 
BEQ 
ERROR 



4(R1),R4 
#277. R4 
R5 

R5.R4 
IS 

40 



: LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMCII ADDRESS 

.-MASTER CLEAR KNC11 

;SET LU LOOP 

;SAVE LU REG FOR TYPEOUT 
.-SINGLE CLOCK 1 SYNC CHARACTERS 



;NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 

;P0RT4 LU12 

;PUT "TOUND" IN R4 

.•CLEAR UNWANTED BITS 

;PUT ••EXPECTED" IN R5 

;IS ACTIVE CLEAR? 

;BR IF YES 

; ERROR ACTIVE IS NOT CLEAR 



;***»*********************** TEST 27 « 

.••DDCKP IN ACTIVE TEST 

;*SET LU LOOP. SINGLE STEP 2 SYNCS AND A NON-SYNC (501) 
;*VERIFY THAT IN ACTIVE IS SET 



TEST 27 



SCOPE 

MOV 

HOV 



«27.$TSTNM 
#TST30.NEXT 



HSTCLR 

HOV «BIT11.(R1) 

HOV #12.R2 

JSR PC. SYNC 

DATACLK. 54 
ROHCLK 



021244 
HOV 
BIC 
HOV 
CHPB 
BEQ 



4(R1).R4 
#277, R4 
#BIT6.R5 
R5.R4 
1$ 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KHCll ADDRESS 

;HASTER CLEAR KHCll 

;SET LU LOOP 

.-SAVE LU REG FOR TYPEOUT 
.•SINGLE CLOCK 2 SYNC CHARACTERS 



.•NEXT WORD IS INSTRUCTION. ROHCLK PC=5504 

;P0RT4 LU12 

;PUT 'TOUND" IN R4 

.•CLEAR UNWANTED BITS 

.'PUT "EXPECTED" IN R5 
;IS ACTIVE SET? 
;BR IF YES 
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N 6 



SEQ 0078 



5894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 

3919 

3920 

3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 



OT'622 
017624 



104040 



01 7624 000004 
017626 012737 
017634 012737 



017642 
017644 
017650 
017654 
017660 
017662 
017666 
017672 
017674 
017676 
017702 
017706 
017712 
017714 
017716 
017720 
017720 
017726 
017730 
017732 
017734 
017736 
017742 
017746 
017750 
017752 
017754 
017756 
017756 
017762 
017766 
017770 
017772 
017774 
017776 



104410 
012702 
012711 
004737 
000301 
10<»413 
104414 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
104040 

012761 
104412 
122112 
104412 
021244 
016104 
042704 
005005 
120504 
001401 
104040 

016104 
042704 
005005 
120504 
001401 
104040 



U: 



ERROR 40 



.ERROR ACTIVE IS NOT SET 



000030 001202 
017776 001442 



000012 
004000 
030444 

000053 
000002 



000004 
000357 
000020 



000200 000004 



000004 
000277 



000004 
000357 



TST30: 



IS: 



2S: 



3$: 



t« TEST 30 •••••••••« 

.••IN CLEAR TEST 

;*SYNC UP RECEIVEit AND TRANSMIT A CHARACTER 
;*UAIT FOR IN RDY, THEN SET IN CLEAR 
.••VERIFY THAT IN ACTIVE AND IN RDY ARE CLEARED 







; TEST 


30 


• 

SCOPE 




nov 


#30,STSTNH 


HOV 


#TST31,NEXT 


HSTCLR 




MOV 


#12, R2 


MOV 


«BIT11,(R1) 


JSR 


PC, CHAR 


301 




OATACLK. 53 


TIMER. 


2 


ROMCLK 




021244 




MOV 


4(R1),R4 


BIC 


#357. R4 


MOV 


#BIT4,R5 


CMPB 


R5.R4 


BEQ 


IS 


ERROR 


40 


MOV 


#BIT7,4(R1) 


ROMCLK 




122112 




ROMCLK 




021244 




MOV 


4(R1).R4 


BIC 


#277, R4 


CLR 


R5 


CMPB 


R5,R4 


BEG 


2S 


ERROR 


40 


MOV 


4(R1),R4 


BIC 


#357. R4 


ClR 


R5 


CMPB 


R5,R4 


BEQ 


3S 


ERROR 


40 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

;MASTER CLEAR KMCll 

:SAVE REG ADDRESS IN R2 FOR TYPEOUT 

.-SET LINE UNIT LOOP 

.•LOAD SILO yiTH 3 SYNCS 

;AND A NON-SYNC (301) 

.'SINGLE CLOCK THE DATA 

;WAIT FOR INRDY 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;P0RT4 LU 12 

.-PUT "Found" in r4 

.•CLEAR UNWANTED BITS 

;PUT "EXPECTED" IN R5 
;IS INRDY SET? 

.•ERROR. INRDY IS NOT SET 

.'LOAD P0RT4 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:SET IN CLEAR 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;P0RT4 LU 12 

;PUT "TOUNO" IN R4 

.•CLEAR UNWANTED BITS 

;PUT 'tXPECTED" IN R5 

;IS IN ACTIVE CLEAR? 

;ERROR. IN ACTIVE IS NOT CLEAR 

;PUT "FOUND" IN R4 
: CLEAR UNWANTED BITS 
;PUT 'tXPECTED" IN R5 
;IS INRDY CLEARED? 

.•ERROR. INRDY IS NOT CLEARED 



TEST 31 
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001401 

VW ' T V ' 








020110 


104010 






1985 


0201 12 

VC w < ■ c 








3986 










1987 










3988 

•J r WW 










1989 










3990 










1991 










1992 

JTTC 










1991 










1994 










1995 










1996 

J TTV 










1997 

JTT f 


0201 1 2 
wcw < < c 


000004 

WWW" 






1998 

J TTO 


VCW 1 ( ■* 


012717 

W 1 C I J ) 


000052 

WWWW VC 


AA 1 ^A^ 

001202 


1999 

JTTT 


020122 

WCW < c c 


012757 

V < C ) * 


020230 

Wfc Wk W 


001442 


4000 










4001 


020130 


104410 






4002 


020132 


012702 


000012 




4003 


020136 


012711 


004000 




4004 


020142 


004737 


030444 




<,00S 


020U6 


000125 
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BASK KCEIVER TESTS 



B 7 



SEQ 0079 



T$T31 



IS: 



2t: 



;*DDCMP BASIC RECEICER TEST 

:«STNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0 

;*VER1FT THAT IN RDY IS SET. AND THAT THE CHARACTER WAS RECEIVED 



TEST 31 



SCOPE 

NOV #31 .STSTNH 
nOV fTST32,NEXT 

NSTCLR 

P10V #12,R2 

nOV #BIT11.(R1) 

JSR PC, CHAR 

0 

OATACLK. 53 
TIHER, 2 

021244 

nov 

BIC 

nov 

CHPB 
BEQ 
ERROR 

ROnCLK 
021204 
NOV 
CLR 
CHP8 
BEQ 
ERROR 



4(R1),R4 

#357. R4 

#6IT4,R5 

R5,R4 

IS 

40 



4(R1),R4 
R5 

R5.R4 
2S 

10 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KNC11 ADDRESS 

.-NASTER CLEAR KMC 11 

.SAVE REG ADDRESS IN R2 FOR TYPEOUT 

;SET LINE UNIT LOOP 

:LOAD SILO yiTH 3 SYNCS 

;AND THE CHARACTER 0 

.SINGLE CLOCK THE DATA 

;WAIT FOR INRDY 

.•NEXT WORD IS INSTRUCTION, ROnCLK PC::5304 

;P0RT4 LU 12 

;PUT *T0UND" IN R4 

.CLEAR UNVANTED BITS 

;PUT "EXPECTED" IN R5 
;IS INRDY SET? 

;ERR0R. INRDY IS NOT SET 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;P0RT4 IN DATA 
;PUT "FOUND" IN R4 
.PUT "EXPECTED" IN R5 
:UAS A 0 RECEIVED? 

.■ERROR. RECEIVED DATA IS WRONG 



TEST 32 ••♦•*•••••♦•••••••••••••••• 

;»OOCBP BASIC RECEICER TEST 

.••SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 125 

;tVERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 



TEST 32 



TST32: SCOPE 

NOV #32.STSTN« 

WV fTST33,NEXT 

HSTCLR 

W)V f12.R2 

NOV fBITII.(Rl) 

JSR PC. CHAR 
125 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST, 

:R1 CONTAINS BASE KNC11 ADDRESS 

.MASTER CLEAR KNC11 

.-SAVE REG ADDRESS IN R2 FOR TYPEOUT 

;SET LINE UNIT LOOP 

:LOAO SILO WITH 3 SYNCS 

.'AND THE CHARACTER 125 



C2KCE MCY11 3CA(10S2) 08*JUL-B0 
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4006 


0201 50 


104413 


AAAACX 


4007 


020154 


104414 


WfWvi 


4008 


020160 


104412 




4009 


020162 


021244 




4010 


020164 


016104 




4011 


020170 


042704 




4012 


0201 74 


012705 




401? 


020200 


120504 




4014 


020202 


001401 




4015 


020204 


104040 




4016 


020206 






4017 


020206 


104412 




4018 


020210 


021204 




4019 


020212 


016104 


000004 


4020 


020216 


012705 


0001 ?5 

w vv * C J 


4021 


020222 


120504 




4022 


020224 


001401 




4023 


020226 


104010 




4024 


020230 






4025 








4026 








4027 








4026 








4029 








4030 








4031 








4032 








4033 








4034 








4035 








4036 


020230 


000004 




4037 


020232 


012737 


0000?? 


4038 


020240 


012737 


0?0^46 


4039 








4040 


020246 


104410 




4041 


020250 


012702 


00001 P 


4042 


020254 


012711 


004000 


4043 


020260 


004737 


030444 


4044 


020264 


000252 




4045 


020266 


104413 


00005? 


4046 


020272 


104414 


000002 


4047 


020276 


104412 




4048 


020300 


021244 




4049 


020302 


016104 


000004 


4050 


020306 


042704 


wvv J J f 


4051 


020312 


012705 


OOOOPO 

WwvC V 


4052 


020316 


120504 




4053 


020320 


001401 




4054 


020322 


104040 




4055 


020324 






4056 


020324 


104412 




4057 


020326 


021204 




4058 


020330 


016104 


000004 


4059 


020334 


012705 


000252 


4060 


020340 


120504 




4061 


020342 


001401 
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BASIC RECEIVER TESTS 



IS: 



2S: 



C 7 



53 .SINGLE CLOCK THE DATA 

:UAIT FOR INRDY 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;P0RT4 LU 12 
.•PUT 'TOUNO" IN R4 
: CLEAR UNWANTED BITS 

;PUT "EXPECTED" IN R5 
.IS INRDY SET? 

.■ERROR. INRDY IS NOT SET 

.-NEXT WORD IS INSTRUCTION, ROMCLK PC =5 304 
:P0RT4 IN DATA 
;PUT 'TOUND" IN R4 
;PUT 'tXPECTED" IN R5 
:UAS A 125 RECEIVED? 

; ERROR, RECEIVED DAI A IS WRONG 



■***••********•*«*•*«******* TEST 33 *•*••**•••♦••*•♦•*♦•*••••** 

;*DDCHP BASIC RECEICER TEST 

.-•SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252 

;*VERIFY THAT IN ROY IS SET, AND THAT THE CHARACTER WAS RECEIVED 

; : *********** t****** ******************************* ******* 



SFO 0080 



DATACLK. 


TINER, 


2 


ROnCLK 










h\ni), n't 


Off 

Bit 


OL 


nUV 


•Dl 1 *• ,R3 




DA 


DCU 


1* 
1 9 




40 


ROnCLK 




021204 




HOV 


4(R1).R4 


MOV 


i125,R5 


CHPB 


05. R4 


BEQ 


2i 


ERROR 


10 



; TEST 33 

• •»**«♦**•»«****•«•»♦♦*«*♦• 

TST33: SCOPE 

nOV f33.$TSTNH 

HOV #TST34.NEXT 

nSTCLR 

MOV f12.R2 

MOV #BIT11.<R1) 

JSR PC. CHAR 

252 

DATACLK, 53 

TIMER, 2 
ROMCLK 
021244 

MOV 4(R1).R4 

BIC #357, R4 

MOV «BIT4.R5 

CMP6 R5,R4 

BEQ n 

ERROR 40 



1$: 



ROMCLK 
021204 

MOV 4(R1),ft4 

MOV #252. R5 

CMPB R5.R4 

BEQ 21 



************************************** 

; LOAD THE NO. OF THIS TEST 
; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
;MASTER CLEAR KMC11 
.•SAVE REG ADDRESS IN R2 FOR TYPEOUT 
:SET LINE UNIT LOOP 
;LOAD SILO WITH 3 SYNCS 
:AND THE CHARACTER 252 
: SINGLE CLOCK THE DATA 
.'WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;P0RT4 LU 12 
;PUT 'TOUND" IN R4 
.•CLEAR UNWANTED BITS 

;PUT 'tXPECTED" IN R5 
:IS INRDY SET? 

;ERROR, INRDY IS NOT SET 

.NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
;P0RT4 IN DATA 
.PUT "TOUND" IN R4 
;PUT "EXPECTED" IN R5 
.WAS A 252 RECEIVED? 



CZKCE HACtll 30A(1052) 08-JUL-80 
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BASIC RECEIVER TESTS 



0 7 



SEQ 0081 



<.062 
<.063 
A06A 
4065 
;066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 

4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 

4i:i 

4112 
4113 
4114 
4115 
4116 
4117 



020344 
020346 



020346 
020350 
020356 

020364 
020366 
020372 
020376 
020402 
020404 
020410 
020414 
020416 
020420 
020424 
020430 
020434 
020436 
020440 
020442 
020442 
020444 
020446 
020452 
020456 
020460 
020462 
020464 



020464 
020466 
020474 



104010 



000004 
012737 
012737 

104410 
012702 
012711 
004737 
000377 
104413 
104414 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
104040 

104412 
021204 
016104 
012705 
120504 
001401 
104010 



000004 
012737 
012737 



2$: 



000034 001202 
020464 001442 



000012 
004000 
030444 



TST34i 



000053 
000002 



ooocc. 

000357 
000020 



000004 
000377 



IS: 



2$: 



000035 001202 
020614 001442 



ERROR 10 



.-ERROR. RECEIVED DATA IS WRONG 



TEST 34 

.••ODCHP BASIC RECEICER TEST 

.-♦SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 377 

:*VER1FV THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 



TEST 34 



SCOPE 

MOV #34.$TSTNn 
HOV #TST35,NEXT 



HSTCLR 
HOV 

nov 

JSR 
377 

DATACLK 
TIMER. 
POMCLK 
021244 

nov 

BIC 

nov 
cnPB 

BEO 
ERROR 

ROMCLK 
021204 

nov 
nov 
cnPB 

BEQ 
ERROR 



#12. R2 
#BIT11.(R1) 
PC, CHAR 

53 



4(R1).R4 

#357, R4 

#BIT4.R5 

R5.R4 

1$ 

40 



4(R1).R4 
#377. R5 
R5.R4 
2% 
10 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KnCII ADDRESS 

:nASTER CLEAR KHCII 

;SAVE REG ADDRESS IN R2 FOR TYPEOUT 

;SET LINE UNIT LOOP 

.-LOAD SILO WITH 3 SYNCS 

;AND THE CHARACTER 37*' 

: SINGLE CLOCK THE DATA 

.-WAIT FOR INRDY 

.•NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;P0RT4 LU 12 

.•PUT 'TOUND" IN R4 

: CLEAR UNWANTED BITS 

;PUT "EXPECTED" IN R5 
;IS INRDY SET? 

.•ERROR. INRDY IS NOT SET 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;P0RT4 IN DATA 
;PUT "fOUNO" IN R4 
;PUT "EXPECTED" IN R5 
.-WAS A 377 RECEIVED? 

.•ERROR, RECEIVED DATA IS WRONG 



TEST 35 ••••••••••• 

.••DDCnP DATA TEST 

.••THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
:*CHECKING EACH CHARACTER AS IT IS RECEIVED 



TEST 35 



TST35: SCOPE 

nov #35.$TSTNH 
nov #TST36.NEXT 



; LOAD THE NO. OF THIS TEST 
: POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
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E 7 



SEQ 0062 



4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4U3 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

A171 

4172 

A173 



020502 
020504 
020510 
020514 
020516 
020522 
020526 
020532 
020536 
020542 
020546 
020550 
020552 
020556 
020560 
020562 
020564 
020566 
020570 
020574 
020576 
020600 
020602 
020606 
020612 
020614 



104410 
005037 
005037 
005002 
012703 
012711 
004737 
104413 
104413 
004737 
104412 
021204 
016104 
010205 
120504 
001401 
104010 
005202 
022702 
001407 
005303 
001360 
004737 
012703 
000751 



031062 
031064 

000073 
004000 
030622 
000043 
000730 
031066 



000004 



000400 



030622 
000073 



IS: 
4$: 



2S: 



3$: 



020614 000004 TST36: 

020616 012737 000036 001202 

020624 012737 020754 001442 

020632 104410 

020634 005037 031062 

020640 005037 031064 

020644 005002 

020646 012703 000073 

020652 005011 

020654 012761 000040 000004 

020662 104412 

020664 122112 

020666 004737 030622 

020672 104413 000043 

020676 104413 000730 M- 

020702 004737 031066 4S: 



HSTCLR 




CLR 


SCHAR 


CLR 


STUfLG 


CLR 


R2 


MOV 


#73. R3 


MOV 


fBlT11.(R1) 


JSR 


PC.SILOLO 


OATACLK. 


43 


OATACLIC, 


730 


JSR 


PC.INROY 


ROMCLK 




021204 




MOV 


4(R1).R4 


nov 


R2.R5 


CMPB 


R5,R4 


BEQ 


2$ 


ERROR 


10 


INC 


R2 


CMP 


f400.R2 


BEQ 


3t 


DEC 


R3 


BNE 


4S 


JSR 


PC.SILOLD 


MOV 


#73, R3 


BR 


1$ 



.-MASTER CLEAR KMC11 

; START BINARY COUNT AT ZERO 

.•CLEAR BITSTUfF FLAG 

;R2 IS "tXPECTEO" DATA 

:R3 IS CHARACTER COUNT 

;SET LINE UNIT LOOP 

;LOAD SILO WITH COUNT PATTERN 

:SYNC RECEIVER AND GET IT ACTIVE 

.•CLOCK IN 73 CHARACTERS 

.WAIT FOR INRDY 

;N£XT WORD IS INSTRUCTION. SOMCL< PC=5304 

;P0RT4 IN DATA 

;PUT 'TOUND" IN R4 

;PUT "EXPECTED" IN R5 

;IS DATA CORRECT? 

;BR IF YES 

;DATA ERROR 

.-NEXT CHARACTER 

.ALL DONE? 

;BR IF YES 

; DECREMENT CHARACTER COUNT 

;BR IF SILO NOT EMPTY 

.•LOAD SILO WITH MORE OF COUNT PATTERN 

: RELOAD CHARACTER COUNT 

.•CONTINUE 



TEST 36 •*•♦•♦•*•**•< 

:*DDCMP DATA TEST 

;*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
;*CHECICING EACH CHARACTER AS IT IS RECEIVED 
.••THIS TEST IS EXACTLY THE SAME AS THE LAST TEST. 
;*EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER 12 







: TEST 


36 


» 

SCOPE 




MOV 


«36.$TSTNM 


NOV 


#TST37,MEXT 


HSTCLR 




CLR 


SCHAR 


CLR 


STUFLG 


CLR 


R2 


MOV 


#73. R3 


CLR 


(Rl) 


NOV 


#BIT5,4(R1} 


ROMCLK 




122112 




JSR 


PC.SILOLD 


DATACLK. *5 


DATACLK, 730 


JSR 


PC. INRDY 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

.•MASTER CLEAR KMC11 

.■START BINARY COUNT AT ZERO 

;CLEAR BITSTUFF FLAG 

;R2 IS 'EXPECTED" DATA 

:R3 IS CHARACTER COUNT 

.•CLEAR LU LOOP IN MAINT REG 

;LOAD P0RT4 

;NEXT UORD IS INSTRUCTION. ROMCLK PC=5304 
;SET LU LOOP IN LU REG 12 
;LOAD SILO WITH COUNT PATTERN 
;SYNC RECEIVER AND GET IT ACTIVE 
.CLOCK IN 73 CHARACTERS 
.-yAIT FOR INRDY 



CZKCE 


MACtll 


30A(1052) 08-Jl 


CZKCE.P11 08 


JUL OU 


I/O • c*» 




020706 


IOi.41 7 




<.175 


020710 


0?1 ?04 




A176 


020712 




000004 


4177 


020716 


oi5?55 




4178 


020720 


1 70504 




4179 


020722 


001401 




4180 


020724 


10401 6 




4161 


020726 


VV vC 




4182 


020730 


022702 


000400 

WW w~ w w 


4183 


020754 


001407 

WW 1 ~ W ' 




4184 


020736 


005303 




418S 


020740 


001 360 




4186 


020742 


004737 

WW" • J ' 


030622 


4187 


020746 


012703 


000075 

WW w w ■ ^ 


4188 


020752 


000751 




4189 


020754 






4190 








4191 








4192 








4193 








4194 








4195 








4196 








4197 








4198 








4199 








4200 








4201 








4202 








4203 


020754 


000004 




4204 


020756 


012737 


000037 


4205 


020764 


012737 


021 114 


4206 








4207 


020772 


104410 




4208 


020774 


012711 


004000 


4209 


021000 


004737 


050444 


4210 


021004 


000301 




4211 


021006 


104413 


000073 


4212 


021012 


004737 


051066 


4213 


021016 


104412 




4214 


021020 


021204 




4215 


021022 


016104 


000004 


4216 


021026 


012705 


000301 


4217 


021032 


120504 




4218 


021034 


001401 




4219 


021036 


104010 




4220 


021040 


004737 


031066 

WW 1 www 


4221 


021044 


104412 




4222 


021046 


a? 1204 




4223 


021050 


CD 61 04 


000004 


4224 


021054 


©2705 


000577 


4225 


021060 


^0504 




4226 


021062 


OONOl 




4227 


021064 


104010 




4228 


021066 


004737 


031066 


4229 


021072 


104412 
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BASK RECEIVER TESTS 



SEO 0083 



2$: 



ROMCLK 




021204 




NOV 


4(R1 ) ,R4 


NOV 


R2,R5 


rnPB 


R5,R4 


BEO 


2% 


ERROR 


10 


INC 


R2 


CNP 


«400,R2 


BEO 


5S 


DEC 


R5 


BNE 


4i 


JSR 


PC,SIL0LD 


NOV 


#75, R5 


BR 


IS 



3S; 



;NEXT WORD IS INSTRUCTION, RQNCLK PC=5304 

;P0RT4 IN DATA 

;PUT 'TOUND" IN R4 

.PUT "EXPECTED" IN R5 

.IS DATA CORRECT? 

;BR IF YES 

:DATA ERROR 

;NEXT CHAR»CTER 

;ALL DONE? 

;BR IF YES 

:DECR:NENT CHARACTER COUNT 

;BR IF SILO NOT EMPTY 

.LOAD SILO WITH NORE OF COUNT PATTERN 

.-RELOAD CHARACTER COUNT 

; CONTINUE 



TEST 57 

; •TRANSMITTER NARK TEST 

;*SINGLE CLOCK 5 SYNCS AND A 301 AND 20 EXTRA 
;«CL0CK TICKS, VERIFY THAT A 301 . A 577 AND M 377 
.-*WERE RECEIVED INDICATING THAT THE TRANSNITTER WENT 
;*T0 A MARK STATE FOR 16 BITS WHEN OUT SILO WAS ENPTY 



; TEST 57 
*****•************«***•*••*• 



TST57: 



IS: 



2S: 



SCOPE 
NOV 
NOV 

NSTCLR 
NOV 
JSR 
501 

DATACLK. 
JSR 
RONCLK 
021204 
NOV 
NOV 
CNPB 
BEO 
ERROR 
JSR 
ROHCLK 
021204 
NOV 
NOV 
CNPB 
BEO 
ERROR 
JSR 
RONCLK 



#57,STSTNM 
#TST40.NE)(T 



fBITll .(R1) 
PC, CHAR 



PCINRDV 



4(R1).R4 
#501. R5 
R5,R4 
IS 

10 

PC.INROY 



4(R1),R4 

#577, R5 

R5,R4 

2S 

10 

PC.INROY 



75 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KNC11 ADDRESS 

;NASTER CLEAR KMC11 

;SET LINE UNIT LOOP 

.•LOAD SILO WITH 5 SYNCS 

:AND A 501 

.-CLOCK THE 501 IN AND 20 EXTRA TICKS 
:UAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION, RONCLK PC=5504 
;P0RT4 IN DATA 
;PUT "TOUND" IN R4 
.-PUT "EXPECTED" IN R5 
:UAS A 501 RECEIVED? 

:ERROR FIRST CHARACTER INCORRECT 
.-WAIT FOR INRDY 

.NEXT WORD IS INSTRUCTION, RONCLK PC=5504 
;P0RT4 IN DATA 
;PUT 'TOUNO" IN R4 
;PUT 'tXPECTEO" IN R5 
;UAS A 577 RECEIVED? 

; ERROR. 577 WAS NOT RECEIVED 
.-WAIT FOR INRDY 

.NEXT WORD IS INSTRUCTION. RONCLK PC=5504 
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BASIC RECEIVER TESTS 



G 7 



SEO 008A 



4250 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 



021074 
021076 
021102 
021106 
021110 
021112 
021114 



021204 
016104 
012705 
120504 
001401 
104010 



000004 
000377 



3$: 



021114 


000004 






021116 


012737 


000040 


001202 


021124 


012737 


021342 


001442 


021132 


104410 






021134 


032737 


020000 


002050 


021142 


001004 






021144 


032737 


040000 


002030 


021152 


001473 






021154 


005011 






021156 


012761 


000100 


000004 


021164 


104412 






021166 


122113 






021170 


104414 


000002 




021174 


104412 






021176 


021264 






021200 


016104 


000004 




021204 


042704 


000023 




021210 


012705 


000310 


002050 


021214 


032737 


020000 


021222 


001402 






021224 


042705 


000200 




021230 


032737 


000004 


002054 


021236 


001402 






021240 


042705 


000200 




021244 








021244 


020504 






021246 


00U01 







fST40: 



021250 
021252 
021256 
021260 
021262 



104011 
005061 
104412 
122113 
104414 



000004 



000002 



31: 



1$: 



021204 

NOV 

NOV 

CNPB 

BEQ 

ERROR 



4(R1).R4 
#377. R5 
R5.R4 
3S 

10 



;P0RT4 IN DATA 
;PUT 'TOUND" IN R4 
;PUT "EXPECTED" IN R5 
;WAS A 377 RECEIVED? 

:ERR0R, 177 WAS NOT RECEIVED 



;**•*****«*«**•*««••••«*•*** TEST 40 

.-•CABLE TURNAROUND TEST 
;*CLEAR LINE UNIT LOOP. SET DTR 
;*VERIFY THAT RING AND MODEM READY ARE SET 
;*CLEAR DTR, VERIFY THAT RING AND MROY ARE CLEARED 



• • 




; TEST 


40 


• 

SCOPE 




NOV 


#40 STSTNM 


NOV 


#TST41,NEXT 


NSTCLR 




BIT 


#BIT13.STAT1 


BNE 


.♦12 


BIT 


#BIT14.STAT1 


BEQ 


2t 


CLk 




NOV 


#100,4(R1) 


RONCLK 




122113 




TIMER. 


2 


RONCLK 




021264 




NOV 


4(R1).R4 


BIC 


#23. R4 


NOV 


#310, R5 


BIT 


#BIT13.STAT1 


BEQ 


.♦6 


BIC 


#B1T7.R5 


BIT 


#BIT2.STAT3 


BEQ 


3t 


BIC 


#BIT7,R5 


CNP 


R5.R4 


BEQ 


n 



ERROR 

CLR 

RONCLK 
122113 
TINER. 



11 

4(R1) 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KNC11 ADDRESS 

;HASTER CLEAR KNCll 

;IS LINE UNIT N8202? 

;BR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN) 

;IS TURNAROUND CONNECTOR ON? 

;SKIP TEST IF NO 

: CLEAR LINE UNIT LOOP 

;LOA0 P0RT4 

.•NEXT WORD IS INSTRUCTION. RONCLK PC=5304 

;SET DTR 

.'WAIT 

;NEXT WORD IS INSTRUCTION, RONCLK PC=5304 
;P0RT4 LU13 

; PUT rOUNO IN R4 ♦♦♦♦NEW 

; CLEAR JUNK 

; GET EXPECTED. 

: IS LINE UNIT N8202? 

: NO RING ON N8202 

; IS THIS V.35 NOOEN? 
: NO THEN GO AHEAD. 

; YES-NO RING ON V.35 NODEN 

; ARE RING AND NOOEN READY SET? 

; WARNING! IF V.35 AND AUTO STARTED. 

; YOU WILL GET THIS ERROR. YOU NUST 

; NANUALL NASUER THE QUESTIONS FOR V.35. 

:ERROR. RING OR NRDY NOT SET 

.CLEAR P0RT4 

;NEXT WORD IS INSTRUCTION, RONCLK PC=5304 
.CLEAR DTR 



CZtcCE HACtll 50A(10S2) 08-JUL-80 
CZHCE.PII 08-JUL-80 08:2^ 



08:24 PAGE 86 

BASIC RECEIVER TESTS 



H 7 



SEO 0085 



4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 



021266 
021270 
021272 
021276 
021302 
021504 
021312 
021314 
021320 
021326 
021330 
021334 
021334 
021336 



021340 
021342 



021360 
0^1362 
021370 
021372 
021400 
021402 
021406 
0214U 
02U16 
021420 
021424 
021432 
02U34 
02U36 
021442 
021444 
021446 
021452 
021454 
021454 
021456 
02U60 



104412 
021264 
016104 
042704 
005005 
032737 
001402 
052705 
032737 
001402 
042704 

120405 
001401 



104011 



021342 000004 
021344 012737 
021352 012737 



104410 

032737 

001004 

032737 

001456 

012711 

012761 

104412 

122113 

104414 

012761 

104412 

122111 

004537 

032012 

000100 

012700 

00501 1 

104412 
021264 
016104 



000004 
000023 

020000 002050 
000010 

000004 002054 
000200 



2%: 



000041 001202 
021536 001442 



020000 002050 

040000 002050 
004000 

000100 000004 



000002 

000001 000004 



031530 



000050 



000004 



TST41 



2S: 



ROflCLK 
021264 

mv 

BIC 
CLR 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIC 

CMPB 
BEQ 



4(R1),R4 
#23, R4 

R5 

#BIT13,STAT1 
.♦6 

#B1T3.R5 

#BIT2.STAT3 

4S 

fBIT7,R4 

R4,R5 
2% 



ERROR 11 



NEXT yORD IS INSTRUCTION, ROMCLK PC=5504 
P0RT4 LU13 

PUR roUND IN R4 ♦♦♦NEy 

STRIP JUNK 

SET EXPECTED. 

IS THIS A n8202? 

YES THEN EXPECT MRDr SET. 
IS THIS V.35? 



ARE RING AND MRDY CLEAR? 

WARNING! YOU MAY GET THIS ERROR If V.55 
AND AUTOSTART. YOU MUST MANNUALLY ANSWER 
ALL QUESTIONS IF V.35. 
ERROR, RING OR MRDY NOT CLEAR 



;»CA8lE TURNAROUND TEST 
;*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO 
;*VERIFY THAT ALL MODEM SIGNALS ARE SET 



TEST 41 A************************** 



; TEST 41 



SCOPE 

nov 
nov 

HSTCLR 

BIT 

BNE 

BIT 

BEQ 

nov 

MOV 

ROMCLK 

122113 

TIMER, 

MOV 

ROMCLK 

122111 

JSR 

MESDAT 

64. 

MOV 

CLR 

ROMCLK 
021264 
MOV 



f41,tTSTNM 
#TST42,NEXT 



#BIT13,STAT1 
.♦12 

#BIT14,STAT1 
U 

#BIT11 .(R1) 
#100, 4<R1) 



#1.4(R1) 
R5,MESLD 



#50, RO 

(R1) 



4(R1 ) .R4 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

;MASTER CLEAR KMC11 

;IS LINE UNIT M8202? 

:BR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN) 
;IS TURNAROUND CONNECTOR ON? 
.'SKIP TEST IF NO 
;SET LINE UNIT LOOP 
;LOAD P0RT4 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; CLEAR ALL MODEM SIGNALS. EXCEPT DTR 
;WAIT 

;LOAD P0RT4 

.NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;SET SOM 

;FILL OUT DATA SILO 
;WITH 64 CHARACTERS 

.•PREPARE FOR DELAY 
: CLEAR LINE UNIT LOOP 

.NEXT WORD IS INSTRUCTION. ROMCLK PC:53C4 
;P0RT4 LU13 

;PUT "Found" in r4 



CZKCE 
CZrcE 

4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4356 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4567 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 
4362 
4363 
4364 
4365 
4366 
4367 
4366 
4369 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
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BASIC RECEIVER TESTS 



SEQ 0086 



021464 
021470 

021474 
021502 

021504 
021510 
021510 
021516 
021520 
021524 
021526 
021530 
021532 
021534 



021536 



021536 
021540 
021546 
021554 

021562 
021564 
021570 
021574 
021576 
021604 
021612 
021616 
021622 
021624 
021630 
021634 
021656 
021642 
021644 
021646 
021650 
021652 
021656 
021660 



042704 


000023 




BIC 


#23, R4 


012705 


000354 




HOV 


#354. R5 


032737 


000004 


002054 


BIT 


#BIT2.STAT3 


001402 






BEQ 


4S 


042705 


000200 




BIC 


#B1T7,R5 




4S: 






032737 


020000 


002050 


BIT 


#BIT13,STAT1 


001402 






BEQ 


.♦6 


042705 


000200 




BIC 


#BIT7,R5 


120504 






CMPB 


R5,R4 


001403 






BEQ 


IS 


005300 






DEC 


RO 


001350 






BNE 


2t 


104011 






ERROR 


11 



000004 
012737 
012737 
012737 

104410 

012711 

004737 

005000 

012737 

012737 

005037 

004737 

000000 

104413 

104413 

005200 

004537 

000001 

000000 

000000 

103405 

004737 

103006 

104012 



000042 
022052 
021570 



004000 
031572 

120001 
000000 
021646 
031232 

000021 
000001 

031122 



031344 



1$. 



;CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 

; IS THIS V.35? 
: NO 

; YES, GET RID OF RING 

;IS LINE UNIT n8202? 

'BR IF NO 

•NO RING ON M8202 

; COMPARE EXPECTED AND FOUND 

:BR IF OK 

.•DEC DELAY COUNT 

:BR IF NOT ZERO 

;ERROR, ALL SIGNALS ARE NOT SET 

; WARNING IF V.35, YOU MUST ANSWER ALL QUESTIONS 

; MANUALLY. 



001202 
001442 
001444 



031226 
021644 



TST42; 



64$: 



65$: 



66$: 
67$: 



TEST 42 •*••***»♦••••*•••••< 

;*TEST OF CRC OPERATION 

; •USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER 
.••0, VERIFY THE LSB OF THE BCC ON EACH SHIFT 
.••TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 



TEST 42 



SCOPE 
MOV 
MOV 
HOV 

HSTCLR 

MOV 

JSR 

CLR 

MOV 

MOV 

CLR 

JSR 

0 

DATACLK, 

DATACLK 

INC 

JSR 

1 

0 

0 

BCS 
JSR 
BCC 
ERROR 



#42,$TSTNM 
#TST43,NEXT 
#64$, LOCK 



#BIT11.(R1) 

PC.CLRIO 

RO 

#CRC16.XP0LY 

#0,66$ 

67$ 

PCBCCLD 

21 
1 

RO 

R5,SIMBCC 



68$ 

PCGETQO 

69$ 

12 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST 

: ADDRESS FOR LOCK ON DATA. 

;R1 CONTAINS BASE KMC11 ADDRESS 

.•MASTER CLEAR KMC11 

;SET LU LOOP 

.'CLEAR BCC REGISTERS 

;START SHIFT COUNTER AT ZERO 

:LOAD POLYNOMIAL FOR SOFTWARE BCC 

.LOAD CHAR FOR SOFTWARE BCC 

: CLEAR OLD SOFTWARE BCC 

;LOAD OUT SILO WITH 2 SYNCS 

.AND THE CHARACTER 0 

;GET TRANSMITTER ACTIVE 

.•SHIFT BCC ONCE 

.BUMP SHIFT COUNT 

.•CALCULATE SOFTWARE BCC LSB 

;ONE SHIFT 

.-DATA CHARACTER 

.OLD BCC 

:BR IF SOFT BCC LSB IS SET 
;GET HARDWARE TRANSMITTER BCC LSB 
:BR IF HARD BCC LSB IS CLEAR 
;ERROR. BCC LSB IS SET 
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4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

<i436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

44t.3 



021662 
021664 
021670 
021672 
021674 
021674 
021700 
021706 
021712 
021714 
021716 
021724 
021730 
021732 
021740 
021746 
021752 
021756 
021760 
021764 
021770 
021772 
021776 
022000 
022002 
022004 
022006 
022012 
022014 
022016 
022020 
022024 
022026 
022030 
022030 
022034 
022042 
022046 
022050 
022052 



000404 
004737 
103401 
104016 

006037 
013737 
022700 
001346 
104405 
012737 
004737 
005000 
012737 
012737 
005037 
004737 
000000 
104413 
104413 
005200 
004537 
000001 
000000 
000000 
103405 
004737 
103006 
104013 
000404 
004737 
103401 
104017 

006037 
013737 
022700 
001346 
104405 



031344 



021644 
031230 
000010 



021724 
031572 

120001 
000000 
022002 
031232 

000032 
000001 

031122 



031356 
031356 



022000 
031230 
000010 
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BASIC RECEIVER TESTS 



66S: 
69$: 



J 7 



SEO 0087 



021646 
001444 



031226 
022000 



71$: 



022002 



72$: 



73$: 
74$: 



75$: 
76$: 

77$: 



BR 


69$ 


JSR 


PCGETQO 


BCS 


69$ 


ERROR 


16 


ROR 


66$ 


HOV 


CALBCC.67$ 


CMP 


f10,R0 


6NE 


65$ 


SC0P1 




MOV 


#71$. LOCK 


JSR 


PCCLRIO 


CLR 


RO 


MOV 


fCRC16,XP0Lt 


MOV 


#0.73$ 


CLR 


74$ 


JSR 


PCBCCLD 


0 


32 


DATACLK 


DATACLK. 1 


INC 


RO 


JSR 
1 


R5.SIHBCC 


0 




0 




BCS 


75$ 


JSR 


PCGETQl 


BCC 


76$ 


ERROR 


13 


BR 


76$ 


JSR 


PC.GETQI 


BCS 


76$ 


ERROR 


17 


ROR 


73$ 


MOV 


CALBCC,74$ 


CMP 


f10.R0 


BNE 


72$ 


SC0P1 





; CONTINUE 

;GET HARDWARE TRANSMITTER BCC LSB 
:BR IF HARD BCC LSB IS SET 
.-ERROR, HARD BCC LSB IS CLEAR 

.•SHIFT SOFT DATA 

.'LOAD OLD SOFT BCC 

.DONE YET? 

:BR IF NOT DONE 

.•SCOPE SUBTEST (SU09=1) 

;NEU SC0PE1 

;clear bcc registers 

; start shift counter at zero 

;load polynomial for software bcc 

.-load char for software bcc 

; Clear old software bcc 

;load out silo with 2 syncs 

;and the character 0 

.get receiver active 

.•shift bcc once 

;buhp shift count 

.•calculate software bcc lsb 

;one shift 

;data character 

.-OLD BCC 

;BR IF SOFT BCC LSB IS SET 
;GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
.•ERROR. BCC LSB IS SET 
.•CONTINUE 

:GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS SET 
;ERROR. BCC LSB IS CLEAR 

;SHIFT SOFT DATA 

;LOAD OLD SOFT BCC 

;OONE YET? 

.•BR IF NOT DONE 

; SCOPE SUBTEST (SW09=1) 



.««••*#*«•«««*•*««*•*««••*•* TEST 43 
••TEST OF CRC OPERATION , ^ ^ 

••USING THE CRC16 POLYNOMIAL. SINGLE CLOCK THE CHARACTER 
••377. VERIFY THE LSB OF THE BCC ON EACH SHIFT 
•TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 



TEST 43 



022052 000004 TST43: SCOPE 

022054 012737 000043 001202 HOV 't^i^J^l?" 

022062 012737 022366 001442 HOV flSJ^^-NEXT 

022070 012737 022104 001444 MOV #64$.L0CK 



LOAD THE NO. OF THIS TEST 
POINT TO THE START OF NEXT TEST 
ADDRESS FOR LOCK ON DATA. 
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4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

'470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

',492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 



022076 
022100 
022104 
022110 
022112 
022120 
022126 
022132 
022136 
022140 
022144 
022150 
022152 
022156 
022160 
022162 
022164 
022166 
022172 
022174 
022176 
022200 
022204 
022206 
022210 
022210 
022214 
022222 
022226 
022230 
022232 
022240 
022244 
022246 
022254 
022262 
022266 
022272 
022274 
022300 
022304 
022306 
022312 
022314 
022316 
022320 
022322 
022326 
022330 
022332 
022334 
022340 
022342 
022344 
022344 



104410 
012711 
004737 
005000 
012737 
012737 
005037 
004737 
000377 
104413 
104413 
005200 
004537 
0O0001 
000000 
000000 
103405 
004737 
103006 
104012 
000404 
004737 
103401 
104016 

006037 
013737 
022700 
001346 
104405 
012737 
004737 
005000 
012737 
012737 
005037 
004737 
000377 
104413 
104413 
005200 
004537 
000001 
000000 
000000 
103405 
004737 
103006 
104013 
000404 
004737 
103401 
104017 



004000 
031572 

120001 
000377 
022*62 
031232 

000021 
000001 

031122 



031344 



031344 



022160 
031230 
000010 



022240 
031572 

120001 
000377 
022316 
031232 

000032 
000001 

031122 



031356 



031356 



64S: 



031226 
022160 



ess: 



66S: 
67S: 



68$: 
69$: 



022162 



001444 



031226 
022314 



71$: 



006037 022314 



72$: 



73$; 
74$: 



75$: 
76$: 



HSTCLR 

MV 

JSR 

CLR 
HOV 

nov 

CLR 
JSR 
577 

DATACLK. 

DATACLK. 

INC 

JSR 

1 

0 

0 

BCS 
JSR 

see 

ERROR 

BR 

JSR 

BCS 

ERROR 

ROR 

nov 

CMP 
BNE 

SC0P1 

nov 

JSR 
CLR 

nov 
nov 

CLR 
JSR 
377 

DATACLK 

DATACLK, 

INC 

JSR 

1 

0 

0 

BCS 

JSR 

BCC 

ERROR 

BR 

JSR 

BCS 

ERROR 

ROR 



#BIT11,(R1) 

PC.CLRIO 

RO 

iCRC16.XP0LY 

#377,66$; 

67$ 

PCBCCLD 

21 
1 

RO 

RS.SinBCC 



68$ 

PC.GETOO 
69$ 
12 
69$ 

PC.GETQO 
69$ 

16 

66$ 

CALBCC.67$ 
#10, RO 
65$ 

#71$, LOCK 

PCCLRIO 

RO 

#CRC16,XP0LY 

#377.7!$; 

74$ 

PC.BCCLD 

32 
1 

RO 

R5.SinBCC 



75$ 

PCGETQI 
76$ 
13 
76$ 

PCGETQI 
76$ 

17 

75$ 



;R1 CONTAINS BASE KHCII ADDRESS 

;nASTER CLEAR KnC11 

;SET LU LOOP 

; CLEAR BCC REGISTERS 

:START SHIFT COUNTER AT ZERO 

;LOAD POLYNOniAL FOR SOFTWARE BCC 

;LOAD CHAR FOR SOFTWARE BCC 

; CLEAR OLD SOFTWARE BCC 

;LOAD OUT SILO WITH 2 SYNCS 

;AND THE CHARACTER 377 

;GET TRANSMITTER ACTIVE 

;SHIFT BCC ONCE 

;BUnP SHIFT COUNT 

; CALCULATE SOFTWARE BCC LSB 

;ONE SHIFT 

:DATA CHARACTER 

:OLD BCC 

:BR IF SOFT BCC LSB IS SET 
;6ET HARDWARE TRANSniTTER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
;ERROR, BCC LSB IS SET 
; CONTINUE 

;GET HARDWARE TRANSMITTER BCC LSB 
;BR IF HARD BCC LSB IS SET 
;ERROR, HARD BCC LSB IS CLEAR 

;SH1FT SOFT DATA 

:LOAD OLD SOFT BCC 

;OONE YET? 

;BR IF NOT DONE 

; SCOPE SUBTEST (SU09=1) 

;NEW SC0PE1 

;CLEAR BCC REGISTERS 

; START SHIFT COUNTER AT ZERO 

;LOAD POLYNOMIAL FOR SOFTWARE BCC 

;LOAD CHAR FOR SOFTWARE BCC 

; CLEAR OLD SOFTWARE BCC 

;LOAD OUT SILO WITH 2 SYNCS 

;AND THE CHARACTER 377 

;GET RECEIVER ACTIVE 

; SHI FT BCC ONCE 

;BUMP SHIFT COUNT 

; CALCULATE SOFTWARE BCC LSB 

;ONE SHIFT 

;DATA CHARACTER 

:OLD BCC 

:BR IF SOFT BCC LSB IS SET 
;GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
:ERROR, BCC LSB IS SET 
; CONTINUE 

:GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS SET 
;ERROR, BCC LSB IS CLEAR 

; SHIFT SOFT DATA 
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L 7 



SEO 0089 



4S10 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 



022350 013737 031230 

022356 022700 000010 

022362 001346 

022364 104405 
022366 



022316 



022366 
022370 
022376 
022404 

022412 
022414 
022420 
022424 
022426 
022434 
022442 
022446 
022452 
022454 
022460 
022464 
022466 
022472 
022474 
022476 
022500 
022502 
022506 
022510 
022512 
022514 
022520 
022522 
022524 
022524 
022530 
022536 
022542 
022544 
022546 
022554 
022560 
022562 



000004 
012737 
012737 
012737 

104410 
012711 
004737 
005000 
012737 
012737 
005037 
004737 
000125 
104413 
104413 
005200 
004537 
000001 
000000 
000000 
103405 
004737 
103006 
104012 
000404 
004737 
103401 
104016 

006037 
013737 
022700 
001346 
104405 
012737 
004737 
005000 
012737 



000044 
022702 
022420 



004000 
031572 

120001 
000125 
022476 
031232 

000021 
000001 

031122 



031344 



031344 



022474 
031230 
000010 



022554 
031572 



77$: 



001202 
001442 
001444 



031226 
022474 



tST44: 



64t: 



65$: 



66$: 
67$: 



68$: 
69$: 



022476 



001444 



nov 

C«P 

BNE 

SC0P1 



CALBCC,74$ 

«10,R0 

72$ 



LOAD OLD SOFT BCC 

DONE YET? 

BR IF NOT DONE 

SCOPE SUBTEST (SU09=1) 



;*tt*******««*************** TEST 44 
.••TEST OF CRC OPERATION 

:*USING THE CRC16 POLYNOMIAL. SINGLE CLOCK THE CHARACTER 
.••125. VERIFY THE LSB OF THE BCC ON EACH SHIFT 
;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 



TEST 44 



71$: 



120001 031226 



SCOPE 

nov 
nov 
nov 

HSTCLR 
MOV 
JSR 
CLR 

nov 
nov 

CLR 
JSR 
125 

DATACLK, 

DATACLK, 

INC 

JSR 

1 

0 

0 

BCS 

JSR 

BCC 

ERROR 

BR 

JSR 

BCS 

ERROR 

ROR 

nov 
cnp 

BNE 

SC0P1 

nov 

JSR 
CLR 

nov 



#44.$TSTNM 

#TST45.NEXT 

«64$,L0CK 



#BIT11 .(R1) 

PCCLRIO 

RO 

#CRC16.XP0L* 

#125,66$; 

671 

PC.BCCLD 

21 
1 

RO 

R5.SIMBCC 



68$ 

PCGETQO 
69$ 
12 
69$ 

PCGETQO 

69$ 

16 

66$ 

CALBCC.67$ 
#10. RO 
65$ 

#71$, LOCK 

PCCLRIO 

RO 

#CRC16,XP0LY 



; LOAD THE NO. OF THIS TbST 

; POINT TO THE START OF NEXT TEST. 

; ADDRESS FOR LOCK ON DATA. 

R1 CONTAINS BASE KMC11 ADDRESS 

MASTER CLEAR KMC11 

SET LU LOOP 

CLEAR BCC REGISTERS 

START SHIFT COUNTER AT ZERO 

LOAD POLYNOMIAL FOR SOFTWARE BCC 

LOAD CHAR FOR SOFTWARE BCC 

CLEAR OLD SOFTWARE BCC 

LOAD OUT SILO WITH 2 SYNCS 

AND THE CHARACTER 125 

GET TRANSMITTER ACTIVE 

SHIFT BCC ONCE 

BUMP SHIFT COUNT 

CALCULATE SOFTWARE BCC LSB 

ONE SHIFT 

DATA CHARACTER 

OLD BCC 

BR IF SOFT BCC LSB IS SET 

GET HARDWARE TRANSMITTER BCC LSB 

BR IF HARD BCC LSB IS CLEAR 

ERROR, BCC LSB IS SET 

CONTINUE 

GET HARDWARE TRANSMITTER BCC LSB 
BR IF HARD BCC LSB IS SET 
ERROR, HARD BCC LSB IS CLEAR 

SHIFT SOFT DATA 

LOAD OLD SOFT BCC 

DONE YET? 

BR IF NOT DONE 

SCOPE SUBTEST (SW09=1) 

NEW SC0PE1 

CLEAR BCC REGISTERS 

START SHIFT COUNTER AT ZERO 

LOAD POLYNOMIAL FOR SOFTWARE BCC 



I 
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SEQ 0090 



4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4565 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 



022570 
022576 
022602 
022606 
022610 
022614 
022620 
022622 
022626 
0226!0 
022632 
022634 
022636 
022642 
022644 
022646 
022650 
022654 
022656 
022660 
022660 
022664 
022672 
022676 
022700 
022702 



022702 
022704 
022712 
022720 

022726 
022730 
022734 
022740 
022742 
022750 
022756 
022762 
022766 
022770 
022774 
023000 
023002 



012737 
005037 
004737 
000125 
104413 
104413 
005200 
004537 
000001 
000000 
000000 
103405 
004737 
103006 
104013 
000404 
004737 
103401 
104017 

006037 
013737 
022700 
001346 
104405 



000004 
012737 
012737 
012737 

104410 
012711 
004737 
005000 
012737 
012737 
005037 
004737 
000252 
104413 
104413 
005200 
004537 



000125 022630 

022632 

031232 

000032 
000001 

031122 



031356 



031356 



022630 

031230 022632 
000010 



72t: 



73$: 
74$: 



75$: 



76$: 



77$: 



000045 001202 
023216 001442 
022734 001444 



004000 
031572 

120001 031226 
000252 023010 
023012 
031232 



TST45! 



64$: 



000021 
000001 

031122 





#125,73$; 


.1 AAf\ ruAb CAB CAC TUADC DC C 

.LOAD CHAR FOR SUFiyARc BCt 


clr 


74$ 


.ri CAD Al n CAC TUADC DTC 

;CLcAR OLD SOFTWARc BCC 


JSR 


PCBCCLD 


.1 AAfl\ AIIT Cfl A UfTU 0 CVAI^C 

.LOAD OUT SILO WliH c iTNCa 


125 


. Aur\ TUC rUADATTCD IOC 

;ANU THt CMARAClcN \cj 


DATACLK, 


32 


;ucT RcCclVtK ACilVc 


DATACLK, 


1 


.cuTCT Oct Aurc 
;SHIFT BCC ONCc 


INC 


RO 


;DUnr b^l^l CUUNi 




DC c T nor r 


• f ki nil ATF CnC TUADF ACC 1 CR 


1 


;UNc oHlr 1 


A 

Q 




;UAlA tnAKnLiCK 






• m n or r 
;UlD oCC 


BCS 


75$ 


;BR IF SOFT BCC LSB IS SET 


JSR 


PC.GETQI 


:GET HARDWARE RECEIVER BCC LSB 


DLL 


7A.€. 


• BD rc uiQn nrr i cr ic n par 

, On Ir flAKU DLL L9D 19 bLCnn 


cRRUK 


1 3 


•cDonD aer i cr tc cpt 


OD 


Tilt 


. r nuT I Ml IP 


1 c o 
JSR 


rt.ut lOl 


•ACT UADnUADP DPrPTUFQ RTT 1 CR 
> UC 1 nAKUwAKC nCLCiVCn DLL LSD 


D Ir J 


76$ 


-BR IF HARD BCC LSB IS SET 


ERROR 


17 


:ERROR, BCC LSB IS CLEAR 


ROR 


73$ 


.-SHIFT SOFT DATA 


ncv 


CAIBCC.74$ 


.-LOAD OLD SOFT BCC 


CMP 


#10, RO 


;DONE YET? 


BNE 


72$ 


:BR IF NOT DONE 


SCOPl 




.SCOPE SUBTEST (SU09=1) 



•**•*•*******«***•*«******** TEST 45 *••••*•••••♦♦••••*♦••*♦**•• 

••TEST OF CRC OPERATION 

.-•USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER 

;*252. VERIFY THE LSB OF THE BCC ON EACH SHIFT 

;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 

- •**•*•♦♦*♦*♦**•*«♦#*••***«*•••**•*•«*••**♦•***•♦*••••♦♦••««•••• 



65$: 



; TEST 


45 


« 

SCOPE 




MOV 


«45,$TSTNH 


MOV 


#TST46,NEXT 


NOV 


«64S.L0CK 


MSTCLR 




MOV 


#BIT11,(R1) 


JSR 


PC.CLRIO 


CLR 


RO 


MOV 


#CRC16.XP0LY 


NOV 


#252,66$: 


CLR 


67$ 


JSR 


PC.BCCLD 


252 


DATACLK 


21 


OATACLK, 1 


INC 


RO 


JSR 


R5,SIMBCC 



; LOAD THE NO. OF THIS TEST 

.- POINT TO THE START OF NEXT TEST. 

: ADDRESS FOR LOCK ON DATA. 

;R1 CONTAINS BASE KMC11 ADDRESS 

.-MASTER CLEAR KNC11 

.SET LU LOOP 

.-CLEAR BCC REGISTERS 

.-START SHIFT COUNTER AT ZERO 

.-LOAD POLYNOMIAL FOR SOFTWARE BCC 

.-LOAD CHAR FOR SOFTWARE BCC 

.-CLEAR OLD SOFTWARE BCC 

.-LOAD OUT SILO WITH 2 SYNCS 

.AND THE CHARACTER 252 

;6ET TRANSMITTER ACTIVE 

; SHIFT BCC ONCE 

;BUNP SHIFT COUNT 

; CALCULATE SOFTWARE BCC LSB 
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N 7 



SEQ 0091 



4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 



025006 
023010 
023012 
023014 
023016 
023022 
023024 
023026 
023030 
023034 
023036 
023040 
023040 
023044 
023052 
023056 
023060 
023062 
023070 
023074 
023076 
023104 
023112 
023116 
023122 
023124 
023130 
0231 34 
023136 
023142 
02314A 
023146 
023150 
023152 
023156 
023160 
023162 
023164 
023170 
023172 
023174 
023174 
023200 
023206 
023212 
023214 
023216 



000001 
000000 
000000 
103405 
004737 
103006 
104012 
000404 
004737 
103401 
104016 

006037 
013737 
022700 
001346 
104405 
012737 
004737 
005000 
012737 
012737 
005037 
004737 
000252 
104413 
104413 
005200 
004537 
000001 
000000 
000000 
103405 
004737 
103006 
104013 
000404 
004737 
103401 
104017 

006037 
013737 
022700 
001346 
104405 



031344 



031344 



66S: 
67S: 



68S: 



d9$: 



023010 

031230 023012 
000010 



023070 001444 
031572 71$: 

120001 031226 
000252 023144 
023146 
031232 



000032 
000001 

031122 



031356 



031356 



72$: 



73$: 
74$: 



023144 

031230 023146 
000010 



75$: 



76$: 



77$: 



1 
0 
0 

BCS 
JSR 

see 

ERROR 
BR 

JSR 
BCS 
ERROR 

ROR 
MOV 
CHP 
BNE 

SC0P1 

nov 

JSR 
CLR 
MOV 
MOV 
CLR 
JSR 
252 

DATACLK 

DATACLK 

INC 

JSR 

1 

0 

0 

BCS 

JSR 

BCC 

ERROR 

BR 

JSR 

BCS 

ERROR 

ROR 
MOV 
CMP 

BNE 
SCOPl 



68$ 

PC-GETQO 
69i 
12 
69$ 

PC.GETQO 
69$ 

16 

66$ 

CALBCC.67$ 
#10, RO 
65$ 

#71$. LOCK 

PCCLRIO 

RO 

#CRC16.XP0LY 
#252. 7S$: 
74$ 

PC.BCCLD 

: V 

RO 

R5,SIHBCC 



75$ 

PC.GETQI 
76$ 
13 
76$ 

PC.GETQI 

76$ 

17 

73$ 

CALBCC,74$ 
#10, RO 
72$ 



.ONE SHIFT 
;DATA CHARACTER 
;OLD BCC 

:BR IF SOFT BCC LSB IS SET 
:GET HARDWARE TRANSMITTER BCC LSB 
:BR IF HARD BCC LSB IS CLEAR 
.ERROR. BCC LSB IS SET 
; CONTINUE 

:GET HARDWARE TRANSMITTER BCC LSB 
:BR IF HARD BCC LSB IS SET 
.-ERROR, HARD BCC LSB IS CLEAR 

.oHIFT SOFT DATA 

.-LOAD OLD SOFT BCC 

.-DONE YET? 

:BR IF NOT DONE 

.•SCOPE SUBTEST (SW09=1) 

:NEW SC0PE1 

.•CLEAR BCC REGISTERS 

.•START SHIFT COUNTER AT ZERO 

;LOAD POLYNOMIAL FOR SOFTWARE BCC 

;LOAD CHAR FOR SOFTWARE BCC 

.•CLEAR OLD SOFTWARE BCC 

;LOAD OUT SILO WITH 2 SYNCS 

;AND THE CHARACTER 252 

;GET RECEIVER ACTIVE 

; SHIFT BCC ONCE 

:BUMP SHIFT COUNT 

;CALCULATE SOFTWARE BCC LSB 

;ONE SHIFT 

;DATA CHARACTER 

.-OLD BCC 

:BR IF SOFT BCC LSB IS SET 
;GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
;ERROR, BCC LSB IS SET 
.•CONTINUE 

.-GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS SET 
.•ERROR, BCC LSB IS CLEAR 

;SHIFT SOFT DATA 

;LOAD OLD SOFT BCC 

.•DONE YET? 

;BR IF NOT DONE 

.-SCOPE SUBTEST (SW09=1} 



;**«*«*t*«t***«««**««**«**** TEST 46 tt.ttt 
.-•TRANSMITTER CRC TEST 

;*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY 
•COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT 



TEST 46 
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B 



4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4695 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4704 

4 70S 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4715 

4714 

4715 

4716 

4717 

4718 

4719 

47iU 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 



023216 
023220 
023226 

023234 
025236 
023242 
023244 
023246 
023250 
023254 
025262 
025266 
025272 
023274 
023276 
023500 
025504 
025506 
025510 
025512 
023516 
025520 
025522 
025526 

am 

025342 
025546 
025350 
023352 
023354 
023356 
023362 
023364 
025566 
025570 
025574 
025576 

025400 
025400 
025404 
023412 
025414 
02>20 
023422 
025424 

m 

023454 
025440 
025442 
025444 



ocooo*» 




012737 


000046 


012737 


025454 


104410 




A1 071 1 

01 £ f 1 1 


Art/. AAA 

I/0400J 


00700> 




00?00h 




v0500> 






Uc J J>£ 


A1 57t7 

Olcf Jf 


1 cOOO 1 


00*» f jf 


ATI X7L 

0 J 1 Jf H 


Al A/.<L1 
01 UmO t 


AOAAAZ. 
OOOOOh 


1 f\LL^ 5 
1 U*i*> 1 c 




Iccl 10 




AA10AZ. 

005cO*« 




01 0401 


AAAAAA 
OOOUOh 


10*''» 1 c 




1 501 1 A 
\CCt 10 




AA<tOAA 
00>£04 




A1 AZ.iL1 

010*ipl 


AAAAAZ. 
00000*1 


1 0*»*» ' c 




1 051 1 A 

1 CC ' 10 




AA/.7T7 
00*« » J ' 


0 jO^OU 


1 A/./. 1 T 


AAAA51 
OOOOc 1 


A1 ACT7 

01 05 Jf 


AOTT^A 




rtftonoi 

UvvUU 1 


nn/.sT7 




ArtrtAni 

UUUUU 1 




AAAAAA 
OOOvUU 








105405 




004757 


051544 


105006 




104020 




000404 




004757 


051544 


105401 




104021 





TST46: 



006057 
015757 
005205 
022705 
001546 
005005 
005204 
022704 
005404 
010461 
104412 
122110 
005205 



025550 

051250 025552 
000010 



000400 
000004 



1$: 



5S: 
4$: 



5$: 



6S: 



SCOPE 

nOV ff46,$TSTNn 
flOV fTST47,»lEXT 



9$: 



HSTCLR 

HOV 

CLR 

CLR 

CLR 

CLR 

*K)V 

JSR 

mv 

ROnCLK 

122110 

INC 

NOV 

ROnCLK 

122110 

INC 

nov 

ROnCLK 
122110 
JSR 

DATACLK 
HOV 

DATACLK 

JSR 

1 

0 
0 

BCS 

JSR 

BCC 

ERROR 

BR 

JSR 

BCS 

ERROR 



ROR 

NOV 

INC 

CNP 

BNE 

CLR 

INC 

CNP 

8LE 

NOV 

RONCLK 

122110 

INC 



#BIT11,(R1) 

R5 

R4 

R5 

4S 

#CRC16.XP0LY 

PCSYNLO 

R4,4(R1) 



R4 

R4,4(R1) 



R4 

R4.4(R1) 



PCOCOR 
,21 

R5.5» 
,1 

R5,SinBCC 



5$ 

PCGETOO 

6S 

20 

6S 

PC.GETQO 

6S 

21 



5S 

CALBCC,4$ 
R5 

#10.R5 
2S 
R5 
R4 

«400.R4 
9S 

R4,4(R1) 



R5 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEKT TEST. 

;R1 CONTAINS BASE KNC11 ADDRESS 

;NASTER CLEAR KNC11 

:SET LINE UNIT LOOP 

:ZERO BIT COUNT 

:R4 CONTAINS CHAR TO BE LOADED IN SILO 

;R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OUT 

.•CLEAR SOFT BCC 

.-LOAD POLYNONINAL 

.-LOAD SILO WITH 2 SYNCS. SON SET 

;P0RT4 CHAR 

.-NEXT OORD IS INSTRUCTION. RONCLK PC-5504 
.LOAD OUT DATA 

:INCRENENT TO NEXT CHARACTER 
;P0RT4 CHAR 

.-NEXT OORD IS INSTRUCTION. RONCLK PC=5504 

.-LOAD OUT DATA 

:INCRENENT TO NEXT CHARACTER 

'P0RT4 CHAR 

■NEXT OORD IS INSTRUCTION, RONCLK PC=5504 
.-LOAD OUT DATA 
.-WAIT FOR OCOR 
; CLOCK DATA 

.-LOAD CHAR FOR SOFT CRC 
;SH1FT BCC ONCE 
;CALCULATE SOFT BCC 
.-SOFT SHIFT COUNT 
.-SOFT CHARACTER 
.-OLD SOFT BCC 

;BR IF SOFT BCC LSB IS SET 

.-GET HARDWARE TRANSNITTER BCC LSB 
:BR IF OK (CLEARED) 
.-ERROR. BCC LSB WAS SET 
.•CONTINUE WITH TEST 

;GET HARDWARE TRANSNITTER BCC LSB 
;BR IF OK (SET) 
;ERROR. BCC LSB WAS CLEAR 



SHIFT SOFT DATA 
LOAD OLD SOFT BCC 
INCRENENT BIT COUNTER 
DONE A FULL CHARACTER VET? 
BR IF NO 

RESTART BIT COUNTER 
INCRENENT DATA FOR SILO 
DONE BINARY COUNT YET? 
BR IF YES 
P0RT4 DATA 

NEXT OORO IS INSTRUCTION. RONCLK PC=5304 
LOAD OUT DATA 
INCRENENT DATA 



HACYll 50A11052> 08- JUL -80 



CZKCE.P11 08-JUL -80 08:24 


/ ■> 1 y 




022703 


AAA/ AA 

00U400 


*i735 


025452 


001 iif 




«i75o 


AOT/ C/ 






/ 717 
















•i f 37 
















/ 7/ 1 








/ 7L 0 
f St 








•i f 3 








/ 7^A 
*» f •••• 








H 1 








H f MO 








H f HI 








L7LA 
H f hO 


\}CJ'*JH 


f\f\f\f\nL 

\JV\J\J\fH 




L 7LQ 


5h3o 


A*. 3717 

U t Cf 3f 


UUUUh I 


£.7^ft 
•I f 3U 


n7T4A4 


rtl 37X7 


03X71 3 
Uc3f 1 C 


•If?! 








HIJC 


Uci** f C 


104410 






Uc JH IH 


01 371 1 

U 1 C ' 1 1 


004000 
wUHUwv 




Uc33wU 


OO^OOX 
UU3UU3 






Uc J3UC 


UU3Uw'» 






rt3T^A4 


AACAAC 
UU3UU3 








00^0X7 
Uv3U3f 


03XA10 
Uc jO I u 


A 7^« 


Uc 33 1 1 


01 37X7 

U 1 C r jf 


1 30001 

1 CUwU 1 


A7CO 
H f 3t 


Uc33£U 


0047X7 
UU*» 1 J f 


0X1 X74 

Uw 1 Jf 


HfO\} 


Uc33cH 


01 04A1 
U 1 vH O 1 


000004 


<• f 0 1 


Uc333U 


10441 3 

1 \IHH 1 C 




' Oc 


\1CjjjC 


1 331 10 






Wr J3 J*« 


UU ?tU*« 




L7kL 
H f OH 




01041^1 

U 1 U*f w 1 


000004 


•If 03 


\1CjjhC 


10441 3 

1 \JHH 1 C 




H f OO 


Uc J3*»*» 


1 331 10 

1 CC 1 1 w 




H f Of 


n3X^4A 


OOS304 

UU3CUH 




H 1 OO 




0104^1 


000004 


H f Ot 


ft3X^S4 
UC333** 


104413 

1 yjHH 1 C 




H f f U 




1221 10 




^771 

S f f 1 




n047X7 


0X02A0 


t773 
S f f c 


n3XSA4 


10441 X 


0000?? 

UUvV 


HI f J 


0?XS7fl 

VCjJ I V 


0105X7 

U 1 \JJJf 


vC Jwww 


L77U 


03XS74 


10441 X 


000001 


HI 1 J 


n?XAOA 


0045X7 
yjyjH J ji 


0X112? 
V J lice 


L77A 

H f IQ 


n3XAA4 
yjcjQvH 


000001 




4777 

mil 




000000 

UUvvUv 




f f o 


Uc JO 1 u 


000000 




4770 

f 1 T 


wc jO I c 


10X405 

1 \JJH\JJ 




H 1 Ov 


A9XA14 
Uc30 )■> 


0047X7 
UU** f Jf 


0X1 X5A 

U J 1 J JQ 


HI Ol 


Uc JOcU 


10X00A 

1 U JUUO 






vC JwCC 


104022 




4785 


025624 


000404 




4784 


023626 


004757 


051356 


4785 


025632 


103401 




4786 


025634 


104025 




(,767 








4788 


023636 






4789 


023636 


006057 


025606 



08:24 PASE 94 

BASIC RECEIVER TESTS 



C 8 



SEO 0093 



7t: 



001202 
001442 



TST47: 



051226 



1$: 
2S: 



3$: 
4S: 



5S: 



6S: 



CUP 
8NE 



«400,RS 
IS 



:D0NE BINARY PATTERN YET? 
:BR IF NO 



TEST 47 

;*RECE1VER CRC TEST 

.'•USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY 

.••COUNT PATTERN, VERIFY THE LSB OF THE RECEIVER BCC ON EACH SHIFT 



TEST 47 



SCOPE 




MOV 


#47,$TSTNn 


nov 


#TST50,NEXT 


nSTCLR 




nov 


#BIT11,(R1) 


CLR 


R3 


CLR 


R4 


CLR 


R5 


CLR 


4t 


nov 


#CRCT6.XP0LY 


JSR 


PCSYNLD 


nov 


R4,4(R1) 


ROnCLK 




122110 




INC 


R4 


nov 


R4,4(R1) 


ROnCLK 




122110 




INC 


R4 


nov 


R4,4(R1) 


ROnCLK 




122110 




JSR 


PC.OCOR 


0ATACLK,32 


nov 


R5.3S 


DATACLIC.I 


JSR 


RS.sinecc 


1 

0 




0 




BCS 


5S 


JSR 


PC.GETQI 


BCC 


61 


ERROR 


22 


BR 


6$ 


JSR 


PC.GETQI 


BCS 


6S 


ERROR 


23 


ROR 


3$ 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KnCl1 ADDRESS 

.nASTER CLEAR KHCII 

;SET LINE UNIT LOOP 

.■ZERO BIT COUNT 

:R4 CONTAINS CHAR TO BE LOADED IN SILO 

:R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OUT 

.•CLEAR SOFT BCC 

;LOAD POLYNOniNAL 

.•LOAD SILO WITH 2 SYNCS, SOM SET 

;P0RT4 CHAR 

;NEXT OORD IS INSTRUCTION. ROnCLK PC=5304 
.-LOAD OUT DATA 

:INCREnENT TO NEXT CHARACTER 
:P0RT4 CHAR 

.■NEXT OORD IS INSTRUCTION. ROnCLK PC=5304 
;LOAD OUT DATA 

; INCREMENT TO NEXT CHARACTER 
'P0RT4 CHAR 

•NEXT OORD IS INSTRUCTION. ROMCLK PC=5304 
;LOAD OUT DATA 
.-WAIT FOR OCOR 
.•CLOCK DA" A 

:LOAD CHAR FOR SOFT CRC 
.•SHIFT BCC ONCE 
.•CALCULATE SOFT BCC 
;SOFT SHIFT COUNT 
;SOFT CHARACTER 
.-OLD SOFT BCC 

;BR IF SOFT BCC LSB IS SET 

:GET HARDWARE RECEIVER BCC LSB 
;BR IF OK (CLEARED) 
:ERROR, BCC LSB WAS SET 
.•CONTINUE WITH TEST 

:GET HARDWARE RECEIVER BCC LSB 
:BR IF OK (SET) 
.•ERROR. BCC LSB WAS CLEAR 



; SHIFT SOFT DATA 



CZKCt HACtn 30a(^052) 08-Jl>L-80 08:24 PAGE 95 
CZKCe.PII 08-JUI-80 08:2A BASIC RECEIVER TESTS 



D 8 



SEO 0094 



4790 

4791 

4792 

4795 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 
4844 
4845 



023642 
023650 
023652 
023656 
023660 
023662 
023664 
023670 
02S672 
023676 
023700 
023702 
023704 
023710 
023712 



02i712 
023714 
023722 



023732 
023736 
023742 
023746 
023752 
023756 
023762 
023766 
023770 
023772 
023776 
024002 
024004 
024010 
024012 



013737 
005203 
022703 
001346 
005003 
005204 
022704 
003404 
010461 
104412 
122110 
005205 
022705 
001327 



000004 
012757 
012737 



025750 104410 



012711 

012704 

005057 

012700 

004757 

004757 

00455' 

05201 i 

000004 

004757 

004757 

005005 

104415 

112405 

010502 



031230 023610 


MOV 


CALBCC.4S 


LOAD OLD son BCC 




INC 


R5 


INCREMENT BIT COUNTER 


000010 


CHP 


#10. R5 


DONE A FULL CHARACTER YET'' 




BNE 


2t 


BR IF NO 




fLR 


R5 


RESTART BIT COUNTER 




INC 


R4 


INCREMENT DATA FOR SILO 


AAA/ AA 

000400 


CNr 


tf/ AA A/ 

ff4UU,N(i 


DONc BINAKT LOUNI Ttl? 




BLE 




•BR IF YES 


000004 


nov 

ROHCLK 

122110 


R4.4(R;) 


•P0RT4 DATA 

INEXT OORD IS INSTRUCTION. ROMCLK 
;LOAD OUT DATA 




INC 


R5 


; INCREMENT DATA 


000400 


CMP 


#400, R5 


;DONE BINARY PATTERN YET? 




BNE 


IS 


;BR IF NO 



051504 
050260 

000022 



1\: 



000050 001202 
024244 001442 



004000 
052012 
024056 
000004 
031574 
050412 
051550 



TST50: 



12$: 



• ••*****************•*«***•* TEST 50 •**••***•*••••••••*<(,'**••*•• 

■•TRANSMITTER DDCHP CRC TEST 

.-•THIS TEST TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC 
;*BOTH DATA AND THE BCC ARE VERIFIED IN THE BIT 
;*UINDOU. THE FOUR CHARACTERS ARE 0J25.252,5<'7 

:*THE TRANSMITTER IS CHECKED FOR GOING TO A MARK STATE AFTER THE BCC 



TEST 50 



SCOPE 

MOV #50.$TSTNH 
MOV #TST51,NEXT 

HSTCLR 

;LOAD OUT DATA SIIO 



MOV 
MOV 
CLR 
MOV 
JSR 
JSR 
JSR 

MESDAT 
4 

JSR 
JSR 
CLR 

OATACLK 

MOVB 

MOV 



#BIT11,(R1) 
#MESDAT,R4 
10S 
#4,R0 

PC.SYNLD 

PC.OUTRDY 

R5,M£SLD 



PC.EOM 
PC.OCOR 
R5 
.22 

(R4,*.RS 
R5.R2 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST, 

:R1 CONTAINS BASE KMC11 ADDRESS 

.-MASTER CLEAR KMC11 



.-SET LINE UNIT LOOP 

.•LOAD POINTER TO DATA 

;CLEAR SOFT BCC 

.•LOAD CHARACTER COUNT 

;LOAD 2 SYNCS IN OUT SILO 

;UA1T FOR OUTRDY 

;LOAD SILO WITH 4 CHAR MESS 

; ADDRESS OF MESSAGE 

.•NUMBER OF CHARACTERS 

;LOAD GARBAGE CHARACTER. UlTH EOM SET 

:WAIT FOR OCOR 

;CLEAR BIT COUNTER 

.•CLOCK DATA 

.•LOAD R5 WITH CHAR 

.-LOAD R2 WITH CHAR 



.•CHECK FIRST FOUR CHARACTER MESSAGE 
;IN THE BIT WINDOW (0.125,252,577) 



024014 012757 120001 051226 



MOV 



#CRC16.XP0LY ;L0AD POLYNOMIAL 



C2KCE HACtll 30A(1052> 08-JUL-8C 08 
C2KCE.P11 08- JUL-80 08:24 



:24 PAGE 96 

BASIC RECEIVER TESTS 



E 8 



SEO 0095 



48A6 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

^.866 

4867 

4868 

4869 

4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

4894 

4895 

4896 

4897 

4896 

4899 

4900 

4901 



02 

Oi 
02 
0< 



024022 
024026 
024032 
024034 
024036 
024040 
024046 
024052 
024054 
024056 
024062 
24064 
4066 
4070 
>4074 
024076 
024100 
024100 
024102 
024106 
024110 
024112 
024114 



024116 
024122 
024126 
024130 
024132 
024136 
024140 
024142 
024144 
024150 
024152 
024154 
024154 
024156 
024162 
024164 



024166 
024172 
024176 
024200 
024202 
024204 
024210 
024212 
024216 
024220 
024224 



010537 
004537 
000010 
000000 



013737 
10441 J 
106002 
103005 
004737 
103406 
104006 
0OC4O4 
004737 
103001 
104006 

005203 
022703 
001357 
005003 
005300 
001335 



104413 
004737 
103401 
104024 
005203 
022703 
001366 
104413 
005003 
104413 
004737 



024034 
031122 



031230 024036 
000001 



030226 



030226 



000010 



000001 
030226 



000007 

000010 

000001 
030226 





NOV 


R5,67$ 


;LOAD SOFT CHAR FOR BCC 




JSR 


RS.SITOCC 


.•CALCULATE SOFT BCC 




10 




; SHIFT COUNT 


67$: 


0 




: CHARAC lER 


10»: 


0 




.'OLD BCC 




HOV 


CALBCC ,10» 


;LOAD SOrl BCC FOR NcXT SHIFT 


64>: 


DATACLK 


4 

1 


■ CLJfCT r\ATA TU TA Of T Llt^AAU 

:5H1FT DATA IN 10 oil WINDOW 




RORo 


R2 


;SHiFI Sur I DATA 




BCC 


6^9 


;BR IF A SrALt 




ica 
J5R 


or rcTct 


• 1 f\f\V AT D f T LI f Ainnij 

;L00n ai Oil WINDOW 




dC) 


66» 






cRROR 


6 


• CDDAD DIT LllAinfMJ LIAC A CDATC 
;cKKUK, Dl 1 WINDOW WAd A brALt 




BK 


00* 


• TAUT T All IC 
; CUNI INUt 






or AC TC 1 
PC ,OCTbl 


.1 AAV AT Of T LlTAinALi 

;LOOR AT oil WINDOW 




BCC 




■OD TC Ak /CDA^C^ 

;dK Ir OK vdrALt' 






w 


•FRBQR RIT UINDOU UA^ A MARK 


66S: 










INC 


R3 


;BUHP BIT COUNTER 




CMP 


#10, R5 


.-DONE FULL 8 BITS YET 




BNE 


64S 


:BR IF NO 




CLR 


R3 


.-CLEAR BIT COUNTER 




DEC 


RO 


:DEC CHARACTER COUNT 




BNE 


12S 


;BR IF NOT DONE YET 









.•CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


013700 


07/1230 




MOV 


CALBCC.RO 


.-PUT BCC IN RO 


104413 


000001 


68S: 


DATACLK. 1 


; SHI FT HARDWARE BCC 


006000 






ROR 


RO 


.•SHIFT SOFT BCC 


103005 






BCC 


69S 


;BR IF CARRY CLEAR 


004737 


03022^ 




JSR 


PC.GETSI 


;LOOK AT BIT WINDOW 


103406 






BCS 


70» 


:BR IF OK (MARK) 


104014 






ERROR 


14 


.•ERROR. CRC WRONG (SPACE) 


000404 






BR 


70f 


.•CONTINUE 


004737 


030226 


691: 


JSR 


PC.GETSI 


.-LOOK AT BIT WINDOW 


103001 




BCC 


70t 


;BR IF OK (SPACE) 


104014 






ERROR 


14 


; ERROR, CRC WRONG (MARK) 




70»: 








005203 






INC 


R3 


.-BUMP BIT COUNTER 


022703 


000020 




CMP 


#20. R3 


;FINISHED BCC YET? 


001357 






BNE 


68t 


;6R IF NO 


005003 






CLR 


R3 


.•CLEAR BIT COUNTER 








.'CHECK 


TO SEE IF 


TRANSMITTER IS NARKING 



2$: DATACLK. 1 

JSR PC, GETS! 

BCS 31 

ERROR 24 
3$: INC R3 

CNP #7,R3 

BNE 2S 

DATACLK. 10 

CLR R3 
4S: DATACLK. 1 

JSR PC.GETSI 



.•CLOCK TRANSMITTER 

:LOOK AT WINDOW 

:IT SHOULD BE NARKING 

; ERROR. BIT WAS A SPACE 

.-BUMP BIT COUNTER 

;DONE YET 

'BR IF NO 

■GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
; CLEAR BIT COUNTER 
;SHIFT OUT NEXT BIT 
.'LOOK AT BIT WINDOW 



CZRCt MACYll 30A(10)2) 08-JUL-80 08:24 PAGE 97 
CZKCI.P11 08-JUL-80 08:24 BASIC RECEIVER TESTS 



F 8 



SEO 0096 



4902 

4903 

4904 

4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4915 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4955 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 



024250 
024232 
024254 
024256 
024242 
024244 



105401 
104024 
005205 
022705 
001566 



000020 



51: 



024244 000004 TST51 
024246 012757 000051 001202 
024254 012737 024446 001442 



024262 
024264 
024270 
024274 
024300 
024504 
024510 
024514 
024516 
024320 
024324 
024330 
024534 
024340 
024542 
024544 
024550 
024552 
024554 
024556 
024360 
024562 



104410 
012711 
012702 
012700 
004757 
004757 
004557 
052012 
000004 
004737 
004737 
104413 
004737 
104412 
021204 
016104 
112205 
120504 
001401 
104010 
005300 
001364 



004000 
052012 
000004 
031374 
050412 
051550 



031504 
030260 
000114 
051066 



000004 



3t; 



1$: 



024564 004757 051066 

024570 104412 

024572 021204 

024574 116157 000004 001502 

024402 042757 177400 001302 

024410 004757 051066 

024414 104412 

024416 021244 

024420 016104 000004 



BCS 

ERROR 

INC 

CHP 

BNE 



.♦4 

24 
R5 

#20.R5 
4S 



:BR IF IT IS A HARK 
;ERR0R. TRANSMITTER 
:INC BIT COUNT 
.DONE VET? 
:BR IF NO 



IS NOT MARKING 



••••••*«•«••••*•««••«*••*•* TEST 51 •••••*•*•••♦♦••< 

■•RECEIVER DOCBP CRC TEST 

;*THIS TEST CLOCKS A FOUR CHARACTER MESSAGE WITH BCC 
.♦AND VERIFYS CORRECT DATA RECEPTION AND BCC HATCH 
;»THE FOUR CHARACTER MESSAGE IS 0,125,252.577 



« • 




; TEST 


51 


« 


SCOPE 




MOV 


#51 .STSTNM 


MOV 


#TST52.NEXT 


MSTCLR 




MOV 


#BIT11 ,(R1) 


MOV 


#MES0AT,R2 


MOV 


#4,R0 


JSR 


PC.SYNLD 


JSR 


PC.OUTRDY 


JSR 


R5,MESLD 


MESOAT 
4 




JSR 


PC. EDM 


JSR 


PC.OCOR 


DATACLK.IU 


JSR 


PC.INROY 


ROMCLK 




021204 




MOV 


4(R1).R4 


M0V8 


{R2)*.R5 


CMPB 


R5,R4 


6EQ 


IS 


ERROR 


10 


DEC 


RO 


BNE 


5S 


.•CHECK 


TO SEE THAT 


JSR 


PC.INRDY 


ROMCLK 




021204 




MOVB 


4(R1).STHP2 


BIC 


#1 77400, $TM 


JSR 


PCINRDY 


ROMCLK 




021244 




MOV 


4(R1),R4 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMlll ADDRESS 

.-MASTER CLEAR KMC11 

;SET LINE UNIT LOOP 

.-LOAD POINTER TO DATA 

.•LOAD CHARACTER COUNT 

.LOAD 2 SYNCS IN OUT SILO 

;WAIT FOR OUTRDV 

.LOAD SILO WITH 4 CHAR MESS 

.•ADDRESS OF MESSAGE 

;NUMBER OF CHARACTERS 

.•LOAD GARBAGE CHARACTER. WITH EOM SET 

.•WAIT FOR OCOR 

; CLOCK DATA 

.-WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 

.-GET IN DATA 

;PUT "FOUND" IN R4 

;PUT "EXPECTED" IN R5 

.COMPARE RECEIVED DATA 

;BR IF OK 

;DATA ERROR 

;OEC CHARACTER COUNT 

:BR IF NOT DONE YET 



;WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION. ROMCIK PC=5504 
.-GET FIRST HALF OF CRC 
.-PUT IN $TMP2 
;CLEAR HI BYTE 
;WAIT FOR INRDY 

.NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 



;PUT "FOUND" IN R4 
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BASK RECEIVER TESTS 



G 8 



SEQ 0097 



4958 

^.959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 

4975 

4976 

4977 

4978 

4979 

4980 

4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 

5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5006 

5009 

5010 

5011 

5012 

5013 



024424 
024430 
024434 
024436 
024440 
024442 
024442 
024444 
024446 



042704 
012705 
120504 
001401 
104015 

104412 
021204 



024446 000004 

024450 012737 

024456 012737 

024464 104410 



024466 
024472 
024476 
024502 
024506 
024512 
024516 
024522 
024524 
024526 
024532 
024536 
024540 
024542 
024546 
024552 
024554 
024560 
024562 



012711 

012704 

005037 

012700 

004737 

004737 

004537 

032012 

000004 

004737 

004537 

032012 

000004 

004737 

004737 

005003 

104413 

112405 

010502 



000376 
000001 



000052 
025546 



004000 
032012 
024606 
000004 
031374 
030412 
031530 



031504 
031530 



031504 
030260 

000022 



25$: 
2S: 



001202 
001442 



TST52: 



12$: 



BIC 

HOV 

CHPB 

BEQ 

ERROR 

ROnCLK 
021204 



#376.R4 

«i.r4 

R5.R4 

25$ 

15 



.■CLEAR UNWANTED BITS 
;PUT 'tXPECTEO" IN R5 
;1S IN BCC HATCH SET? 

:IN BCC HATCH ERROR 

;NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 
;6ET LAST HALF 



;**•••****•**•****••**•*«••• TEST 52 •••*•*•••••♦••••••«•••• 

■•DDCMP EOH FUNCTION TEST 

;«THIS TEST LOADS OUT SILO WITH: 2 SYNCS, 4 CHAR MESSAGE. EOH 
;«4 CHARACTER HESS.EOH. THE DATA STREAM IS CHECKED TO BE 
;*4 CHAR, BCC, 4 CHAR, BCC , MARKS. THIS TEST VERIFYS THAT 
;*THE CHARCTERS LOADED WITH EOH SET ARE LOST 
;*ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW 
;«THE FOUR CHARACTER MESSAGE IS 0.125,252,377 
;*RECEIVED DATA IS VERIFIED, AND IN BCC HATCH IS CHECKED 



TEST 52 



SCOPE 

MOV #52.$TSTNM 
HOV #TST53,NEXT 

HSTCLR 

.•LOAD OUT DATA SILO 



HOV 
HOV 

CLR 
HOV 
JSR 
JSR 
JSR 

HESDAT 
4 

JSR 
JSR 

HESDAT 
4 

JSR 
JSR 
CLR 

DATACLK 

HOVB 

HOV 



«BIT11,(R1) 
fnESDAT,R4 
10$ 
f4,R0 

PC.SYNLD 

PCOUTRDt 

R5.MESLD 



PC. EOH 
R5.MESLD 



PCEOM 

PC.OCOR 

R3 

'22 
(R4)nR5 

R5.R2 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST, 

;R1 CONTAINS BASE KHCII ADDRESS 

.MASTER CLEAR KHC11 



;SET LINE UNIT LOOP 

:LOAD POINTER TO DATA 

.CLEAR SOFT BCC 

;LOAD CHARACTER COUNT 

;LOAD 2 SYNCS IN OUT SILO 

;WAIT FOR OUTRDY 

.-LOAD SILO WITH 4 CHAR HESS 

.ADDRESS OF MESSAGE 

.-NUMBER OF CHARACTERS 

:LOAD GARBAGE CHARACTER. WITH EOM SET 

.-LOAD FOUR MORE CHARACTERS 

.ADDRESS OF HESSAGE 

.-NUfQER OF CHACTERS 

.SET EOH 

.-WAIT FOR OCOR 

.-CLEAR BIT COUNTER 

.-CLOCK DATA 

,-LOAD R5 WITH CHAR 

:LOAD R2 WITH CHAR 



;CHECr FIRST FOUR CHARACTER HESSAGE 
.-IN THE BIT WINDOW (0.125.252,577) 



r 
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H 8 



SEO 0098 



50U 

S01S 

5016 

5017 

5018 

5019 

S020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5052 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 



024564 
024572 
024576 
024602 
024604 
024606 
024610 
024616 
024622 
024624 
024626 
024632 
024634 
024636 
024640 
024644 
024646 
024650 
024650 
024652 
024656 
024660 
024662 
024664 



024666 
024672 
024676 
024700 
02470? 
024706 
024710 
024712 
024714 
024720 
024722 
024724 
024724 
024726 
024732 
024734 
024736 
024742 
024746 
024752 
024754 



012737 
010537 
004537 
000010 
000000 
000000 
013737 
104413 
106002 
103005 
004737 
103406 
104006 
000404 
004737 
103001 
104006 

005203 
022703 
001357 
005003 
005300 
001335 



013700 
104413 
006000 
103005 
004737 
103406 
104014 
000404 
004737 
103001 
104014 

005203 
022703 
001357 
005003 
012700 
012704 
005037 
112405 
010502 



120001 
024604 
031122 



051230 
000001 



030226 



030226 



000010 



031230 
000001 



030226 



030226 



000020 



000004 
032012 
025000 



031226 



024606 



67i: 
10S: 

64$: 



65S: 



66t: 



68t: 



69$: 
70$: 



13$: 



024756 012737 120001 031226 

024764 010537 024776 

024770 004537 031122 

024774 000010 

024776 000000 76$; 



nov 
nov 

JSR 

10 

0 

0 

MOV 

DATACLK 

RORB 

BCC 

JSR 

BCS 

ERROR 

BR 

JSR 

BCC 

ERROR 

INC 
CMP 
BNE 
CLR 
DEC 
BNE 



#CRC16.XP0LY 

R5.67$ 

R5.SINBCC 



CALBCC.10$ 

1 

R2 
65$ 

PC.GETSl 

66$ 

6 

66$ 

PC.GETSl 
66$ 

6 

R3 

#10, R3 

64$ 

R3 

RO 

12$ 



:LOAD POLYNOMIAL 

.-LOAD son CHAR FOR BCC 

.•CALCULATE SOFT BCC 

;SH1FT COUNT 

; CHARACTER 

;OLD BCC 

.•LOAD SOFT BCC FOR NEXT SHIFT 

.•SHIFT DATA IN TO BIT WINDOW 

.•SHIFT SOFT DATA 

;BR IF A SPACE 

.-LOOK AT BIT WINDOW 

:BR IF OK (MARK) 

; ERROR, BIT WINDOW WAS A SPACE 

; CONTINUE 

;LOOK AT BIT WINDOW 

:BR IF OK (SPACE) 

:ERROR. BIT WINDOW WAS A MARK 

;BUMP BIT COUNTER 
.-DONE FULL 8 BITS YET 
.BR IF NO 

;CLEAR BIT COUNTER 
:DEC CHARACTER COUNT 
:BR IF NOT DONE YET 



;CHECK BCC fOR PRECEDING MESSAGE IN THE BIT WINDOW 



HOV CALBCCRO 
DATACLK, 1 



ROR 
BCC 
JSR 
BCS 
ERROR 
BR 
JSR 
BCC 
ERROR 

INC 
CMP 
BNE 
CLR 
MOV 
MOV 
CLR 

novB 

MOV 



RO 
69$ 

PC.GETSl 
70$ 
14 
70$ 

PC,GETSI 

70$ 

14 

R3 

#20, R3 

68$ 

R3 

«4,R0 

#MES0AT,R4 

11$ 

(R4)i,R5 
R5,R2 



;PUT BCC IN RO 

; SHI FT HARDWARE BCC 

;SHIFT SOFT BCC 

;BR IF CARRY CLEAR 

;LOOK AT BIT WINDOW 

:BR IF OK (MARK) 

: ERROR, CRC WRONG (SPACE) 

;:UNTINUE 

.-LOOK AT BIT WINDOW 
;BR IF OK (SPACE) 
.•ERROR, CRC WRONG (MARK) 

;BUMP BIT COUNTER 
;FINISHED BCC YET? 
;BR IF NO 

;CLEAR BIT COUNTER 
.RESET CHARACTER COUNTER 
.LOAD MESSAGE POINTER 
:CLR SOFT BCC 
;LOAD CHAR IN R5 
:LOAD CHAR IN R2 



.CHECK SECOND MESSAGE IN THE BIT WINDOW (0.125,252.577) 



MOV 
MOV 

JSR 

10 

0 



#CRC16,)IP0LY 

R5,76$ 

R5.SIHBCC 



;LOAD POLYNOMIAL 
.-LOAD SOFT CHAR FOR BCC 
; CALCULATE SOFT BCC 
; SHIFT COUNT 
; CHARACTER 
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5070 


025000 


000000 




5071 


025002 


013737 


031230 


5072 


025010 


104413 


000001 


5073 

J 074 


025014 


106002 




025016 


103005 




5075 


025020 


004737 


030226 


5076 


025024 


103406 




5077 


025026 


104006 




5078 


025030 


000404 




5079 


025032 


004737 


030226 


5080 


025036 


103001 




5081 


025040 


104006 




5082 


025042 






5083 


025042 


005203 




5084 


025044 


022703 


000010 


5085 


025050 


001357 




5086 


025052 


005003 




5087 


025054 


005300 




5088 


025056 


001335 




5089 








5090 








5091 






031230 


5092 


025060 


013700 


5093 


025064 


10<»413 


000001 


5094 


025070 


006000 




5095 


025072 


103005 


030226 


5096 


025074 


004737 


5097 


025100 


103406 




5098 


025102 


104014 




5099 


025104 


000404 


030226 


5100 


025106 


004737 


5101 


025112 


103001 




5102 


025114 


104014 




5103 


025116 






5104 


025116 


005203 




5105 


025120 


022703 


000020 


5106 


025124 


001357 




5107 


025126 


005003 




5108 








5109 








5110 








5111 


025130 


104413 


000001 


5112 


025134 


004737 


030226 


5113 


025140 


103401 




5114 


025142 


104024 




5115 


025144 


005203 




5116 


025146 


022703 


000007 


5117 


025152 


001366 




5118 


025154 


104413 


000010 


5119 


025160 


005003 




5120 


025162 


104413 


000001 


5121 


025166 


004737 


030226 


5122 


025172 


103401 




5123 


025174 


104024 




5124 


025176 


005203 




5125 


025200 


022^03 


000020 
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I 8 



SEQ 0099 



025000 



111: 
73$: 



75$: 



77$: 



78$: 
79$: 



2$: 



3$: 



4$: 



A 




> ni r\ or r 


■iAfci 


t Ai Dr r lift 


• inAn cncT nrr tno UEVT cut FT 
iLvnu )Ur 1 DLL r Un NCKI >niri 


DAT ACLK , 


1 


•cuicT nATA iM Tn BIT uiMftnu 


RORB 


Ri 


•CUtCT cntT RATA 


BCC 


74$ 


:BR IF A SPACE 


JSR 


PCGETSl 


:LOOK AT BIT WINDOW 


ore 
DCs 








0 




OD 


1 j» 


- rnuT T Ml IF 


ICD 


DC r.t TCI 


<innr at rit uiMhOu 


or r 


f 7» 




ERROR 


W 


: ERROR, BIT WINDOW WAS A MARK 


INC 


R3 


.-BUMP BIT COUNTER 


CMP 


#10. R3 


;DONF PULL 8 BITS YET 


BNE 


73$ 


;BR IF NO 


CLR 


R3 


; CLEAR BIT COUNTER 


DEC 


RO 


;DEC CHARACTER COUNT 


BNE 


13$ 


;BR IF NOT DONE YET 



.CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 



nov 


CALBCCRO 


;PUT BCC IN RO 


DATACLIt.l 


; SHI FT HARDWARE BCC 


ROR 


RO 


; SHI FT SOFT BCC 


BCC 


78$ 


;BR IF CARRY CLEAR 


JSR 


PCGETSI 


.LOOK AT BIT WINDOW 


BCS 


79$ 


:BR IF OK (MARK) 


ERROR 


14 


;ERROR, CRC WRONG (SPACE) 


BR 


79$ 


; CONTINUE 


JSR 


PCGETSI 


;LOOK AT C'T WINDOW 


BCC 


79$ 


:BR IF OK (SPACE) 


ERROR 


14 


.•ERROR. CRC WRONG (MARK) 


INC 


R3 


;BUHP BIT COUNTER 


CMP 


#20. R3 


.•FINISHED BCC YET? 


BNE 


77$ 


;BR IF NO 


CLR 


R3 


.•CLEAR BIT COUNTER 



.'CHECK TO SEE IF TRANSMITTER IS NARKING 



DATACLK. 
JSR 
BCS 
ERROR 
INC 
CMP 
BNE 
DATACLK, 
CLR R3 
DATACLK. 



PCGETSI 
3$ 
24 
R3 

#7.R3 
2$ 



1 



10 

1 



JSR 
BCS 
ERROR 
INC 
CMP 



PCGETSI 
.♦4 
24 
R3 

#20. R3 



iCLOCK TRANSMITTER 

;LOOK AT WINDOW 

;IT SHOULD BE MARKING 

; ERROR, BIT WAS A SPACE 

;BUNP BIT COUNTER 

;DONE YET 

'BR IF NO 

•GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 

.•CLEAR BIT COUNTER 

:SHIFT OUT NEXT BIT 

.-LOOK AT BIT WINDOW 

;BR IF IT IS A MARK 

.•ERROR. TRANSMITTER IS NOT MARKING 

:INC BIT COUNT 

;DONE YET? 
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SI 26 


025204 


001 366 




S127 








5128 








S129 








S130 








5131 


025206 


104415 


000001 


5152 


025212 


012705 


000004 


5153 


025216 


012702 


032012 


5154 


025222 


004757 


031066 


5155 


025226 


104412 




5136 


025250 


021204 




5137 


025252 


016104 


000004 


5138 


025256 


112205 




5159 


025240 


120504 




5140 


025242 


001401 




5141 


025244 


104010 




5142 


025246 


005505 




5145 


025250 


001 564 




5144 








5145 








5U6 








5147 








5148 


025252 


004757 


031066 


5149 


025256 


10<i412 




5150 


025260 


021204 




5151 


025262 


116137 


000004 


5152 


025270 


042737 


177400 


5155 


025276 


004757 


031066 


5154 


025502 


104412 




5155 


025504 


021244 




5156 


025506 


016104 


000004 


5157 


025312 


042704 


000376 


5158 


02S516 


012705 


000001 


5159 


025322 


120504 




5160 


025524 


001401 




5161 


025526 


104015 




5162 


025550 






5165 


025550 


104412 




5164 


025552 


021204 




5165 


025554 


116157 


000004 


5166 


025542 


042757 


000377 


5167 


025550 


055757 


001300 


5168 


025356 


023737 


031250 


5169 


025364 


00U01 




5170 


025366 


104027 




5171 








5172 








5175 








5174 








5175 


025370 


012703 


000004 


5176 


025574 


012702 


052012 


5177 


025400 


004737 


051066 


5178 


025404 


104412 




5179 


025406 


021204 




5180 


025410 


016104 


000004 


5181 


025414 


112205 
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BASIC RECEIVER TESTS 



J 8 



SEO 0100 



40S: 



41$: 



001502 
001302 



50S: 



001301 
001500 
001502 
001502 



42$: 
43$: 



BNE 



4$ 



;BR IF NO 



.•CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 
;WAS RECEIVED CORRECTLY (0.125.252.577) 



OATACLK, 
MOV 
MOV 

JSR 

ROnCLK 
021204 
HOV 

nova 

CMPB 
BEO 
ERROR 
DEC 
BNE 



1 

#4,R3 
«nESDAT.R2 
PC.INROY 



4(R1).R4 
(R2)+,R5 
R5.R4 
41$ 
10 
R3 
40$ 



get last bit in receiver 
r5=character count 
load message pointer in r2 
wait for inrdy 

next word is instruction, romclk pc=530a 

put "found" in r4 
put "expected" in r5 
is received data correct? 

BR IF YES 

RECEIVE DATA ERROR 
DEC CHARACTER COUNT 
BR IF NOT DONE YET 



;CHECK TO SEE THAT IN BCC MATCH IS SET 
;AND THAT THE BCC UAS RECEIVED CORRECTLY 



JSR 

ROMCLK 

021204 
MOVB 
BIC 
JSR 

ROMCLK 

021244 

MOV 

BIC 

MOV 

CMP8 

8EQ 

ERROR 

ROMCLK 

021204 

MOVB 

BIC 

BIS 

CMP 

BEQ 

ERROR 



PC. INRDY 



4(R1).$TMP2 
#1 77400. $TMP2 
PC. INRDY 



4(R1).R4 

#376,R4 

#1.R5 

R5.R4 

50$ 

15 



4(R1).$THP1*1 

#577.$TMP1 

$TMP1 ,$TMP2 

CALBCC.$TMP2 

42t 

27 



WAIT FOR INRDY 

NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
GET FIRST HALF OF CPC 
PUT IN $TMP2 
CLEAR HI BYTE 
UAIT FOR INRDY 

NEXT UORD IS INSTRUCTION, ROMCLK PC=5304 

PUT "FOUND" IN R4 
CLEAR UNWANTED BITS 
PUT "EXPECTED" IN R5 

15 IN BCC MATCH SET? 

IN BCC MATCH ERROR 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
GET LAST HALF 
PUT IN $TMP1 
CLEAR LO BYTE 

16 BIT BCC NOW IN $TMP2 
IS IT CORRECT? 

BR IF OK 



.•CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 
;WAS RECEIVED CORRECTLY (0.125,252,377) 



MOV 
MOV 

JSR 

ROMCLK 
021204 
MOV 
MOVB 



#4,R3 

#MESDAT,R2 
PC, INRDY 



4(R1).R4 
(R2)*,R5 



;R3=CHARACTER COUNT 

.LOAD MESSAGE POINTER IN R2 

;WA1T FOR INRDY 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;PUT "FOUND" IN R4 
;PUT "EXPECTED" IN R5 
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SEQ 0101 



S182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5195 

5194 

5195 

5196 

5197 

5198 

5199 

'^200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

S215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

;229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 



025416 120504 

025420 001401 

025422 104010 

025424 005303 

025426 001364 



025430 
025434 
025436 
025440 
025446 
025454 
025460 
025462 
025464 
025470 
025474 
025500 
025502 
025504 
025506 
025506 
025510 
025512 
025520 
025526 
025534 
025542 
025544 
025546 



004737 
104412 
021204 
116137 
042737 
004737 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
mOVj 

10441^ 
021204 
116137 
042737 
053737 
023737 
001401 
104027 



025546 000004 

025550 012737 

025556 012737 

025564 104410 



44S: 



031066 



000004 001302 
177400 001302 
031066 



000004 
000376 
000001 



51S: 



000004 001301 

000377 001300 

001300 001302 

031230 001302 



5S: 



CHPB 
BEQ 

ERROR 

DEC 

BNE 



R5,R4 

44S 

10 

R3 

43S 



IS RECEIVED DATA CORRECT? 

BR IF YES 

RECEIVE DATA ERROR 

DEC CHARACTER COUNT 

BR IF NOT DONE YET 



.-CHECK TO SEE THAT IN BCC HATCH IS SET 
;AND THAT THE BCC WAS RECEIVED CORRECTLY 



JSR 

ROMCLK 

021204 
MOVB 
BIC 
JSR 

ROnCLK 

021244 

MOV 

BIC 

HOV 

C«PB 

BEQ 

ERROR 

ROnCLK 

021204 

HOVB 

BIC 

BIS 

CHP 

BEQ 

ERROR 



PCINRDY 



4(R1),$THP2 
#1 77400, $THP2 
PC.INRDY 



4(R1),R4 
#376, R4 
#1 .R5 
R5,R4 
51$ 
15 



4(R1),STHPU1 

#377,STHP1 

STHP1,$THP2 

CALBCC.$THP2 

5$ 

27 



WAIT FOR INRDY 

NEXT WORD IS INSTRUCTION, ROHCLK PC=5304 
GET FIRST HALF OF CRC 
PUT IN $THP2 
CLEAR HI BYTE 
WAIT FOR INRDY 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

PUT "FOUND" IN R4 
CLEAR UNWANTED BITS 
PUT "EXPECTED" IN R5 

15 IN BCC MATCH SET? 

IN BCC HATCH ERROR 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
GET LAST HALF 
PUT IN STHPI 
CLEAR LO BYTE 

16 BIT BCC NOW IN STMP2 
IS IT CORRECT? 

BR IF OK 



•A************************* TEST 53 
*DDCHP EOH FUNCTION TEST 

♦THIS TEST LOADS OUT SILO WITH: 2 SYNCS, 4 CHAR MESSAGE. EOH 

•S0M,4 CHAR HESS.EOH. THE DATA STREAM IS CHECKED TO BE 

•4 CHAR, BCC, 4 CHAR, BCC, MARKS. THIS TEST VERIFYS THAT 

•THE CHARCTERS LOADED WITH EOM SET ARE LOST 

«ALSO THAT THE CHAR LOADED WITH SOM IS NOT IN THE BCC 

•ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW 

•THE FOUR CHARACTER MESSAGE IS 0,125,252,377 

•RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED 



TEST 53 



000053 001202 
026746 001442 



TST53: 



SCOPE 

MOV 

MOV 

MSTCLR 



#53.STSTNM ; LOAD THE NO. OF THIS TEST 

#TST54,.JEXT ; POINT TO THE START OF NEXT TEST, 

:R1 CONTAINS BASE KMC11 ADDRESS 

.MASTER CLEAR KNC11 
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7C JO 


















\)cjjOO 


ni 271 1 






y/cjj f c 




n'^2012 




MCJi'V 




02571 2 






012700 

U 1 C ' wv 


WvwwwH 




025606 

vC ^wvv 


004757 


031374 




025612 


004737 


050412 




025616 

Ut JM ' y 


004537 


031530 




025622 

vC J^CC 






^?48 


0256^4 


000004 






025626 


004737 


031504 




0256'^2 




031454 




025636 


004537 


031530 




025642 


032012 




5255 


025644 


000004 




5?54 


025646 


004737 


031504 


5255 


025652 

Vb JV 


004737 


030260 


5256 


025656 


005003 

VW^WW J 




5257 


025660 


104413 


000022 


5?5A 

JC JO 




112405 




5750 

JC J' 


Vfc ^UWU 


010502 




5260 
















5262 


















025670 


012737 

VIC* J f 


120001 

1 b wv 1 


5?65 

JCWJ 




010537 

V 1 V ^ J ( 


025710 


5266 


025702 


004537 


031122 

V^ I ■ b 


5267 


025706 

Wfc ^ • wv 


000010 




5268 

^ft WW 


025710 


000000 

vw w w 




5269 


025712 

Vfc ^ ' lb 


000000 

www 




5270 


025714 


013737 


031230 


5271 


025722 


104413 


000001 

www ' 


5272 


025726 


1 06002 




5273 


025730 


103005 




5274 


025732 


004737 


030226 


5275 


025736 


103406 




5276 


025740 


104006 




5277 


025742 


000404 

WWW" W~ 




5278 


025744 


004737 


030226 


5279 


025750 


103001 

1 V^W < 




5280 


025752 


104006 




5281 


025754 






5282 


025754 


005203 




5283 


025756 


022703 


000010 


5284 


025762 

Vb ^ ' Wfc 


001357 




5285 


025764 


005003 

w ^ w ^ 




5286 


025766 


005300 




5287 


025770 


001335 




5288 








5289 








5290 
5291 


025772 


013700 


031230 


5292 


025776 


104413 


000001 


5293 


026002 


006000 
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BASIC RECEIVER TESTS 



L 8 



SEQ 0102 



12$: 



031226 



025712 



67S: 
10$: 

64$: 



65$: 



66$: 



.-LOAD OUT DATA SILO 



nov 

CLR 

mv 

JSR 
JSR 
JSR 

KESDAT 
4 

JSR 
JSR 
JSR 

HESDAT 
4 

JSR 
JSR 
CLR 

DATACLK 
HOVB 

nov 



#BIT11 .(Rl) 

fnESDAT,R4 

10$ 

f4,R0 

PCSYNLD 

PCOUTRDY 

R5.HESLD 



PC.EOH 
PC.SOH 
R5,nESLD 



PCEOH 
PCOCOR 
R3 
.22 
(R4)*.R5 
R5,R2 



SET LINE UNIT LOOP 

LOAD POINTER TO DATA 

CLEAR SOFT BCC 

LOAD CHARACTER COUNT 

LOAD 2 SYNCS IN OUT SILO 

UAIT FOR OUTRDY 

LOAD SILO WITH 4 CHAR HESS 

ADDRESS OF MESSAGE 

NUMBER OF CHARACTERS 

LOAD GARBAGE CHARACTER, WITH EOM SET 

LOAD GARBAGE CHAR WITH SOM SET 

LOAD FOUR MORE CHARACTERS 

ADDRESS OF MESSAGE 

NUMBER OF CHACTERS 

SET EOH 

UAIT FOR OCOR 

CLEAR BIT COUNTtR 

CLOCK DATA 

LOAD R5 WITH CHAR 

LOAD R2 WITH CHAR 



.-CHECK FIRST FOUR CHARACTER MESSAGE 
:IN THE BIT UINDOU (0.125.252.377) 



#CRC16.XP0LY 
R5.67$ 
R5.SIHBCC 



MOV 
MOV 
JSR 
10 
0 
0 

MOV CALBCC.10$ 

DATACLK, 1 

RORB R2 

BCC 65$ 

JSR PC.GETSI 

BCS 66$ 

ERROR 6 

BR 66$ 

JSR PC.GETSI 

BCC 66$ 

ERROR 6 



INC 
CMP 
BNE 

CLR 
DEC 
BNE 



R3 

#10, R3 

64$ 

R3 

RO 

12$ 



LOAD POLYNOMIAL 

LOAD SOFT CHAR FOR BCC 

CALCULATE SOFT BCC 

SHIFT COUNT 

CHARACTER 

OLD BCC 

LOAD SOFT BCC FOR NEXT SHIFT 

SHIFT DATA IN TO BIT UINDOU 

SHIFT SOFT DATA 

BR IF A SPACE 

LOOK AT BIT UINDOU 

BR IF OK (MARK) 

ERROR. BIT UINDOU UAS A SPACE 

CONTINUE 

LOOK AT BIT UINDOU 

BR IF OK (SPACE) 

ERROR. BIT UINDOU UAS A MARK 

BUMP BIT COUNTER 
DONE FULL 8 BITS YET 
BR IF NO 

CLEAR BIT COUNTER 
DEC CHARACTER COUNT 
BR IF NOT DONE YET 



;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT UINDOU 



68$: 



MOV CALBCC.RO 
DATACLK. 1 
ROR RO 



PUT BCC IN RO 
SHIFT HARDWARE BCC 
SHIFT SOFT BCC 
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5294 


026004 


103005 




5295 


026006 


AA i Y 

004737 


A9 A^ 

030226 


5296 


026012 


103406 




5297 


026014 


4 Ai A4 i 

104014 




5298 


A^^ A4 A 

026016 


AAAi Ai 

000404 




52tV 


026020 


AAy 717 

00475f 


030226 


5300 


026024 


i A7AA1 
1 03001 




5301 


026026 


1 A/ AI / 

1 0401 4 




5302 


AO^AIA 

02603U 






55U3 


AOiLAXA 


AAC5AX 

0052U3 




53U4 


026032 


A'307A1 

022f 03 


AAAAOA 
000020 




U20U30 


AA1 XC7 

UUl ijf 




C TA^ 

53UO 


AO^A/ A 


AACAAX 

005003 




CTA7 

550f 








CTAfl 

)3UB 








CTAO 

j30t 








CTl A 

531U 


AOiLA/. 0 

U20Uh2 


AACAAC 

UU5005 




531 1 


AOiLA/./. 

U20044 


A1 ACA5 

010502 




531 c 


U20v;40 


1 A/./. 1 X 

1 0*»*» 1 3 


A A AAA 1 
000001 


531 3 


U20U5C 


1 AiLAA5 

1 00002 




en /. 
5314 


AOiLACA 

020U5*> 


1 AXAAC 

103005 




cue 
5315 


0260 50 


AA/.7X7 

004 / 3f 


030220 


5310 


020Q62 


1 AXZ Ail, 

103<iOo 




en 7 
531 f 


Q2oQ64 


1 Ay AAiL 

1 OhOOO 




5318 


U26U00 


AAA/.AZ. 

OUOhOh 




cn Q 
531V 


A0iLA7A 


AA/.7X7 

OOnf 3f 


AXA55iL 

030220 


53cU 


A0XA7/. 

U2oUf (t 


1 AXAA1 

1 03001 




53cl 


UcOUf 0 


1 A/. AAA 

1 Oh 000 




j3CC 


UcOl UU 


AAC5AX 
UU5cU5 






n5Ain5 


A557AX 
Ucc 1 U5 


000010 

UUUU 1 U 


eX5^ 


UcO 1 uo 


Art! X^7 
UU 1 55i 




eX5^ 
5 Jc5 


UcO 1 1 w 


AA^OAX 
UU5UU5 




JJCO 


A5A1 1 5 
UcO 1 1 c 


AI 57AA 
U 1 c r UU 


OOOOOA 


eX57 


UcO 1 10 


AI 57A£ 
U 1 C f UH 


0X501 5 
U5cw 1 c 


53cO 


UcO 1 2c 


AACAX7 
UU5U5r 


A5A1 
UcO 1 5<l 


53CT 


A5A1 5A 
UcO 1 cO 


1 1 CHU5 




eXXA 
533U 


A5A1 xn 
UcOl 5U 


A1 A<LA5 
U 1 U5UC 




exxi 

533 1 








eXX5 
533c 








CXXX 

5333 








CXXA 


A5A1 X5 
UcO 1 5c 


01 57X7 

U 1 c r J f 


1 50001 
1 cUUU 1 


exx^ 


A5^1^A 
UcO 1 <tU 


01 ASX7 
U IU55' 


05A1 S5 
UcO 1 JC 


. 530 


UcO 1 


AAAeX7 
UUH55f 


0X1 1 55 
U5 1 1 cc 


^ *X7 

55Jf 


A5A1 <A 
UcO 1 5U 


AAAA1 A 
UUUU 1 U 




<xxa 

5330 


A5A1 <5 
UcOl 5c 


AAAAAA 
UUUUUU 




eXXQ 


A5A1 e^ 
UcO 1 5*» 


AAOAAO 




5>*»U 


U201 50 


AI X7X7 

Ul 5f 5f 


0X1 5XA 
U5 1 c5U 


KXL^ 

55*1 1 


UcO 1 Oh 


1 A/./.1 X 
1 Uhh I J 


A A AAA 1 
UUUUU 1 




026170 


106002 




5343 


026172 


103005 




5344 


026174 


004737 


030226 


5345 


026200 


103406 




5346 


026202 


104006 




534^ 


026204 


000404 




5348 


026206 


004737 


030226 


5349 


026212 


1C3001 





69S: 



70S: 



32S: 



30$: 
31$: 



13$: 



76$: 
11$: 

73$: 



BCC 

JSR 

BCS 

ERROR 

BR 

JSR 

BCC 

ERROR 

INC 
CMP 
BNE 
CLR 



69$ 

PC.CETSI 
70$ 
14 
70$ 

PC.GETSi 

70$ 

14 

R3 

#20. R3 

68$ 

R3 



.•CHECK CHARACTER LOADI 

CLR R5 

HOV R5,R2 

DATACIK. 1 

RORB R2 

BCC 30$ 

JSR PCGETSI 

BCS 31$ 

ERROR 6 

BR 31$ 

JSR PC.GETSI 

BCC 31$ 

ERROR 6 

INC R3 

CMP #10. R3 

BNE 32$ 

CLR R3 

MOV #4.R0 

nOV #nES0AT,R4 

CLR 11$ 

HOVB (R4)*.R5 

nOV R5.R2 

.•CHECK SECOND MESSAGE 



#CRC16.XP0LY 
R5.76$ 
RS.SIHBCC 



74$; 



mv 

NOV 

JSR 
10 
0 
0 

NOV CALBCC.11$ 

DATACLK. 1 

RORB R2 

BCC 74$ 

JSR PC.GETSI 

BCS 75$ 

ERROR 6 

BR 75$ 

JSR PC.GETSI 

BCC 75$ 



8 



SEO 0103 

:BR IF CARRY CLEAR 
.•LOOK AT BIT WINDOW 
;BR IF OK (MARK) 
.ERROR. CRC WRONG (SPACE) 
.CONTINUE 

;LOOK AT BIT WINDOW 

;BR IF OK (SPACE) 

; ERROR. CRC WRONG (MARK) 

:BUMP BIT COUNTER 
;FINISHEO BCC YET? 

'BR If no 

•CLEAR BIT COUNTER 

D WITH SOM (000). IN THE BIT WINDOW 

: CHARACTER LOADED WITH SOM 

.•LOAD R2 WITH CHAR 

.•CLOCK TRANSMITTER 

; SHI FT SOFT DATA 

:BR IF SPACE 

.'LOOK AT BIT WINDOW 

:BR IF OK (MARK) 

;ERROR.BIT WINDOW WAS A SPACE 

; CONTINUE 

.-LOOK AT BIT WINDOW 
;BR IF OK (SPACE) 
;ERROR.BIT WINDOW WAS A MARK 
.•BUMP BIT COUNTER 
:DONE CHARACTER YET? 
• BR IF NO 

■RESET BIT COUNTER 

: RESET CHARACTER COUNTER 

;LOAD MESSAGE POINTER 

;CLR SOFT BCC 

:LOAD CHAR IN R5 

;LOAD CHAR IN R2 

IN THE BIT WINDOW (0.125,252,377) 

;LOAD POLYNOMIAL 

:LOAD SOFT CHAR FOR BCC 

; CALCULATE SOFT BCC 

: SHI FT COUNT 

.•CHARACTER 

.-OLD BCC 

;LOAD SOFT BCC FOR NEXT SHIFT 

.•SHIFT DATA IN TO BIT WINDOW 

.•SHIFT SOFT DATA 

:BR IF A SPACE 

.-LOOK AT BIT WINDOW 

;BR IF OK (MARK) 

:ERROR. BIT WINDOW WAS A SPACE 

; CONTINUE 

.•LOOK AT BIT WINDOW 
.•BR IF OK (SPACE) 
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5350 


026214 


104006 




5351 


026216 






5352 


026216 


005205 




5353 


026220 


022705 


000010 


5354 


026224 


001557 




5355 


026226 


005005 




5356 


026250 


005500 




5357 


026252 


001335 




5358 








5359 








5360 








5361 


026254 


013700 


051250 


5362 


026240 


104415 


000001 


5363 


026244 


006000 




5364 


026246 


105005 




5365 


026250 


004757 


050226 


5366 


026254 


105406 




5367 


026256 


104014 




5368 


026260 


000404 




5369 


026262 


004757 


050226 


5370 


026266 


105001 




5371 


026270 


104014 




5372 


026272 






5373 


026272 


005205 




5374 


026274 


022705 


000020 


5375 


026500 


001557 




5376 


026502 


005005 




5377 








5378 








5379 








5380 


026304 


104415 


000001 


5381 


026510 


004757 


050226 


5382 


026514 


105401 




5383 


026516 


104024 




53A4 


026520 


005203 




5385 


026522 


022705 


000007 


5586 


026526 


001 566 




5387 


026550 


104415 


000010 


5588 


026554 


005005 




5389 


026556 


104415 


000001 


5390 


026542 


004757 


050226 


5591 


026546 


105401 




5592 


026550 


104024 




5595 


026552 


005205 




5594 


026554 


022705 


000020 


5595 


026560 


001566 




5596 








5597 








5598 








5599 








5400 


026562 


104415 


000001 


5401 


026566 


012705 


000004 


5402 


026572 


012702 


052012 


5405 


026576 


004757 


051066 


5404 


026402 


104412 




5405 


026404 


021204 
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RECEIVER TESTS 



N 8 



SEO 0104 



ERROR 



.ERROR. BIT WINDOW WAS A MARK 



INC 
C«P 
BNE 
CLR 
DEC 
BNE 



R5 

#10. R5 

75$ 

R5 

RO 

15t 



.-BUMP BIT COUNTER 
;DONE FULL 8 BITS YET 
'BR IF NO 

•CLEAR BIT COUNTER 
;OEC CHARACTER COUNT 
:BR IF NOT DONE YET 



:CHECK see FOR PRECEDING MESSAGE IN THE BIT WINDOW 



NOV 


CALBCCRO 


:PUT BCC IN RO 


DATACLK.1 


; SHIFT HARDWARE BCC 


ROR 


RO 


;SHIFT SOFT BCC 


see 


78$ 


;BR IF CARRY CLEAR 


JSR 


PC.GETSI 


.-LOOK AT BIT WINDOW 


BCS 


79$ 


;BR IF OK (NARK) 


ERROR 


14 


:ERROR. CRC WRONG (SPACE) 


BR 


79$ 


: CONTINUE 


JSR 


PC.GETSI 


;LOOK AT BIT WINDOW 


BCC 


79$ 


;BR IF OK (SPACE) 


ERROR 


14 


; ERROR, CRC WRONG (MaRK) 


INC 


R5 


:BUNP BIT COUNTER 


CHP 


#20. R5 


;FINISHEO BCC YET? 


BNE 


77$ 


'BR IF NO 


CLR 


R5 


•CLEAR BIT COUNTER 



; CHECK TO SEE IF TRANSMITTER IS MARKING 



DATACLK, 
JSR 
BCS 
ERROR 
INC 
CMP 
BNE 
DATACLK. 
CLR R5 
DATACLK. 



PC.GETSI 
5$ 
24 
R3 

#7.R5 
2$ 



1 



10 
1 



JSR 
BCS 
ERROR 
INC 
CMP 
BNE 



PC.GETSI 
.♦4 
24 
R5 

#20,R5 
4$ 



; CLOCK TRANSMITTER 

;L00K AT WINDOW 

:IT SHOULD BE MARKING 

: ERROR. BIT WAS A SPACE 

;BUMP BIT COUNTER 

;DONE YET 

'BR IF NO 

•GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 

; CLEAR BIT COUNTER 

.•SHIFT OUT NEXT BIT 

;LOOK AT BIT WINDOW 

:BR IF IT IS A MARK 

.'ERROR. TRANSMITTER IS NOT MARKING 

;INC BIT COUNT 

.•DONE YET? 

;BR IF NO 



.'CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 
;WAS RECEIVED CORRECTLY (0.125,252,377) 



DATACLK, 1 

MOV #4.R5 

NOV #NESDAT,R2 

JSR PCINRDY 

ROHCLK 

021204 



:GET LAST BIT IN RECEIVER 
;R5=CHARACTER COUNT 
;LOAD MESSAGE POINTER IN R2 
;WAIT FOR INRDY 

:NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 
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B 9 



SEO 0105 



5406 
5407 
5408 
5409 
5410 
5411 
5412 
541? 
5414 
5415 
5416 
5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5426 

S429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 




0264; 
0264 



02 
Oi 



h 

6434 
6436 

[6444 
6452 
!64S6 
16460 
026462 
026466 
026472 
026476 
026500 
026502 
026504 
026504 
026506 
026510 
0265 '1 6 
026524 
026'«32 
026540 
026542 



026544 
026550 
026552 
026554 
026560 
026562 
026564 
026566 



026570 
026574 
026600 
026604 
026606 
026610 
026614 



016104 
112205 
120504 
001401 
104Q10 
005303 
001364 



004737 
104412 
021204 
116157 
042737 
004737 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
104015 

104412 
021204 
116137 
042757 
053757 
025757 
001401 
104027 



004737 
104412 
021204 
016104 
005005 
120504 
001401 
104010 



012705 
012^02 
004737 
104412 
021204 
016104 
112205 



000004 



4n: 



031066 



000004 001302 
177400 001302 
031066 



000004 
000376 
000001 



50S: 



000004 001301 

000577 001500 

001500 001502 

051250 001502 



031066 



45S: 



000004 



000004 
052012 
051066 



000004 



42$: 
45S: 



NOV 
NOVB 

fAROR 

OEC 

BNE 



4(111 ).R4 

(R2)*.R5 

RS.R4 

4li 

10 

R3 

408 



:PUT 'tOUND" IN R4 

;PUT 'tXPCCTEO" IN R5 

:IS RECEIVED DATA CORRECT? 

*BR IF TES 

:RECEIVE DATA ERROR 

;DEC CHARACTER COUNT 

;BR IF NOT DONE YET 



.-CHECK TO SEE THAT IN BCC HATCH IS SET 
:AND THAT THE BCC WAS RECEIVED CORRECTLY 



JSR 


PC.INRDY 


ROnCLK 




021204 


4(R1) ATnP2 


WVB 


BIC 


f1 77400, STNP2 


JSR 


PC.INRDY 


RONCLK 




021244 




NOV 


4(R1).R4 


BIC 


#576, R4 


NOV 


#1.R5 


cNPe 


R5.R4 


6EQ 


50t 


ERROR 


15 


ROMCLK 




021204 




novB 


4(R1>.ITNP1*1 


BK 


#377.$TNP1 


BIS 


$TNP1,$TNP2 


CNP 


CALBCC.8TNP2 


BEQ 


45S 


ERROR 


27 


.•CHECK 


THAT CHARACTER 


JSR 


PC.INROY 


RONCLK 




021204 




NOV 


4(R1),R4 


CLfi 


R5 


CHP8 


R5,R4 


8EQ 


428 


ERROR 


10 



:UAIT FOR INRDY 

:NEXT WORD IS INSTRUCTION. RONCLK PC-5304 
;GET FIRST HALF OF CRC 
;PUT IN JTNP2 
; CLEAR HI BYTE 
:UAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION. RONCLK PC=5504 

;PUT "FOUND" IN R4 
.-CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R!> 
;IS IN BCC MATCH SET? 

;IN BCC HATCH ERROR 

;NEXT WORD IS INSTRUCTION, RONCLK PC=5504 

;6ET LAST HALF 

.PUT IN fTNPI 

; CLEAR LO BYTE 

;16 BIT BCC NOW IN ITMP2 

;IS IT CORRECT? 

;BR IF OK 



;WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION, RONCLK PC=5304 

;OET RECEIVE DATA 

.PUT "FOUND" IN R4 

;PUT "EXPECTED" IN R5 

;IS RECEVIEO DATA CORRECT? 

;BR IF YES 

;RECEIVE DATA ERROR 



.CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 
.WAS RECEIVED CORRECTLY (0,125.252.377) 



MOV 
MOV 

JSR 

ROMCLK 
021204 
MOV 
MOVE 



t4.R3 

#NES0AT.R2 

PC.INROY 



4(R1).R4 
(R2)*,R5 



;R3=CHARACTER COUNT 

:LOAD MESSAGE POINTER IN R2 

;WAIT FOR INROY ^ 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

.PUT "FOUND" IN R4 
;PUT "EXPECTED" IN R5 



CZKCt MACYll 50A(1052) 08-JUL-80 08:2* PAGE 107 
C2KCE.P11 08-JUL-80 06:24 BASIC RECEIVER TESTS 



C 9 



SEO 0106 



5462 

5465 

5464 

5465 

5466 

5467 

5468 

5469 

5470 

5471 

5472 

5475 

5474 

5475 

5476 

5477 

5478 

5479 

5480 

5481 

5482 

5483 

5484 

5485 

5486 

5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 



026616 120504 

026620 001401 

026622 104010 

026624 005303 

026626 001364 



026630 
026634 
026636 
026640 
026646 
026654 
026660 
026662 
026664 
026670 
026674 
026700 
026702 
026704 
026706 
026706 
026710 
026712 
026720 
026726 
026734 
026742 
026744 
026746 



004737 
104412 
021204 
116137 
042737 
004737 
104412 
021244 
016104 
042704 
012705 
120504 
001401 
104015 

104412 
021204 
116137 
042737 
053737 
023737 
001401 
104027 



44S: 



031066 



000004 001302 
177400 001302 
031066 



000004 
000376 
000001 



51$: 



000004 001301 

000377 001300 

001300 001302 

031230 001302 



026746 000004 TST54; 

026750 012/^7 00005*. 001202 

026756 012737 027200 001442 

026764 104410 

026766 012711 004000 

026772 012702 032012 

026776 012700 000004 

027002 004737 031574 

027006 004737 030412 



C«P9 

BEQ 

ERROR 

DEC 

BNE 



R5-R4 

44i 

10 

R3 

43t 



;IS RECEIVED DATA CORRECT? 
*BR IF VES 
■RECEIVE DATA ERROR 
;DEC CHARACTER COUNT 
:BR IF NOT DONE YET 



;CHECIC TO SEE THAT IN BCC HATCH IS SET 
:AND THAT THE BCC WAS RECEIVED CORRECTLY 



JSR 

ROMCLK 
021204 

novB 

BIC 

JSR 

ROnCLK 
021244 

nov 

BIC 

nov 

CHPB 

BEQ 

ERROR 

ROnCLK 

021204 

M0V8 

BIC 

BIS 

CMP 

BEQ 

ERROR 



PCINRDY 



4(R1).$T«P2 
f1 77400, $THP2 
PC.INRDY 



4(R1) ,R4 

#376, R4 

#1,R5 

R5,R4 

51$ 

15 



4{R1).$THPU1 

f377,$THP1 

$THP1.$T«P2 

CALBCC.$THP2 

5$ 

27 



.-WAIT FOR INRDY 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;GET FIRST HALF OF CRC 
;PUT IN $THP2 
.•CLEAR HI BYTE 
.-WAIT FOR INRDY 

.-NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;PUT "FOUND" IN R4 
.'CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
:IS IN BCC MATCH SET? 

:IN BCC MATCH ERROR 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;GET LAST HALF 

;PUT IN $TMP1 

.-CLEAR LO BYTE 

:16 BIT BCC NOW IN $TMP2 

;IS IT CORRECT? 

:BR IF OK 



•**•*•*•#•«•*••*«•*••****•*• TEST 54 ••*•••♦•*•••••»*•••« 

.-♦EMPTY SILO TEST 

,-*LOAD SILO WITH 2 SYNCS, 4 CHAR MESSAGE, SINGLE CLOCK 
;»UNTIL THE SILO IS EMPTY, LOAD 4 MORE CHARACTERS IN THE 
.-»SILO. GIVE MORE TICKS, AND VERIFY THAT ONLY THE FIRST 
:*4 CHARACTER MESSAGE UAS RECEIVED AND THAT RTS IS CLEAR 



TEST 54 



SCOPE 

MOV f54.$TSTNM 

MOV #TST55,NEXT 

MSTCLR 

MOV #BIT11.(R1) 

MOV inESDAT,R2 

MOV «4.R0 

JSR PC.SYNLD 

JSR PCOUTRDY 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST, 

;R1 CONTAINS BASE KMC11 ADDRESS 

;MASTER CLEAR KHC11 

;SET LINE UNIT LOOP 

;R2 POINTS TO MESSAGE 

.RO = CHAR COUNT 

.•LOAD SILO WITH TWO SYNCS 

.-WAIT FOR OUTRDY 
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D 9 



5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 

5543 

5544 

5545 

5546 

5547 

5548 

5549 

5550 

5551 

5552 

5553 

5554 

5555 

5556 

5557 

5558 

5559 

5560 

5561 

5562 

5563 

5564 

5565 

5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 



027012 
027016 
027020 
027022 
027026 
027032 
027036 
027040 
027042 
027046 
027052 
027054 
027056 
027064 
027066 
027070 
027074 
027100 
027102 
027104 
027110 
027112 
027114 
027116 
027120 
027122 
027124 
027130 
027132 
027134 
027140 
0^7144 
027146 
027150 
027152 
027156 
027160 
027162 
027166 
027172 
027174 
027176 
027200 



004537 


031530 




JSR 


R5.nESLD 


032012 






NESDAT 




000004 






4 




004737 


030260 




JSR 


PC.OCOR 


104413 


000065 




OATACLK. ( 


004537 


03^530 




JSR 


R5,NESLD 


032012 






HESDAT 




000004 






4 




004737 


030260 




JSR 


PC.OCOR 


104413 


000005 




OATACLK, 


104412 






ROnCLK 




021264 






021264 




032761 


000040 C00004 




BIT 


«6IT5,4( 


001401 






BEO 


5S 


104034 






ERROR 


34 


104413 


000041 


5S: 


OATACLK, 


004737 


031066 


IS: 


JSR 


PCINRDY 


104412 






ROnCLK 




021204 






021204 




016104 


000004 




MOV 


4(R1),R4 


112205 






nova 


(R2)*.R5 


120504 






CHPB 


R5,R4 


001401 






BEO 


2S 


10<i010 






ERROR 


10 


005300 




2S: 


DEC 


RO 


001364 






BNE 


IS 


004737 


031066 


3S: 


JSR 


PC.INRDY 


104412 






ROnCLK 




021204 






021204 




016104 


000004 




MOV 


4(R1).R4 


012705 


000377 




NOV 


#377, R5 


120504 






CHPB 


R5,R4 


001401 






BEO 


4S 


104010 






ERROR 


10 


004737 


031066 


4S: 


JSR 


PCINROY 


104412 






ROnCLK 




021204 






021204 




016104 


000004 




MOV 


4(R1),R4 


012705 


000377 




MOV 


#377. R5 


120504 






CHP8 


R5,R4 


001401 






BEO 


lOS 


104010 






ERROR 


10 



10»: 



65 



41 



:L0AD MESSAGE IN SILO 

.-START OF MESSAGE 

: CHARACTER COUNT 

;WA1T FOR OCOR 

;CLOCK DATA (EMPTY SILO) 

;PUT MORE CHARACTERS IN SILO 



;CLOC»C UNTIL RTS IS CLEARED 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

.-GET RTS 

.•IS IT CLEAR? 

;BR IF YES 

.-ERROR, RTS NOT CLEAR 

.-CLOCK XMITTER SOME MORE 

;0K LETS CHECK WHAT WAS RECEIVED 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;GET RECEIVE DATA 

;PUT IT IN R4 

;R5 = "EXPECTED" 

;IS DATA CORRECT? 

;BR IF OK 

;DATA ERROR 

.-DEC CHAR COUNT 

;BR IF NOT DONE YET 

;UAIT FOR INRDY 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=530«. 

;GET RECEIVE DATA 

;PUT IT IN "FOUND" 

:R5 = "EXPECTED" 

; SHOULD SEE 377 

:BR IF OK 

:ERROR, TRANSMITTER DID NOT ABORT 
;WAIT FOR INRDv 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

.-GET RECEIVE DATA 

;PUT IT IN "FOUND" 

;R5 = "EXPECTED" 

; SHOULD SEE 377 

:BR IF OK 

;ERROR. TRANSMITTER DID NOT ABORT 



;*******««t*t***««t«t«««***t TEST 55 ftttttttttttttttti 
.••HALF DUPLEX TEST 

.-•SET LINE UNIT LOOP AND HALF DUPLEX, SEND SYNCS AND A 
.-•MESSAGE. VERIFY THAT IN-ACTIVE AND IN-READY ARE CLEAR 



TEST 55 



027200 
027202 



000004 
012737 



000055 001202 



TST55: 



SCOPE 
MOV 



#55.STSTNM 



LOAD THE NO. OF THIS TEST 
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SEQ 0108 



5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

b582 

5583 

5584 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 

5607 

5608 

5609 

5610 

5611 

5612 

5613 

5614 

5615 

5616 

5617 

5618 

5619 

5620 

5621 

5622 

S625 

5624 

5625 

5626 

5627 

5628 

5629 



02^210 012737 027316 001442 



027216 
027220 
027224 
027230 
027236 
027240 
027242 
027246 
027252 
027256 
027260 
027262 
027266 
027272 
027274 
027276 
027302 
027306 
027310 
027312 
027514 
027316 



027316 
027320 
027326 

027334 
027336 
027344 
027346 
027352 
027356 
027362 
027370 
027374 
027400 
027404 
027410 
027414 



104410 
012702 
012711 
012761 
104412 
122113 
004737 
004737 
004537 
032012 
000004 
004737 
104413 
104412 
021244 
016104 
042704 
005005 
120504 
001401 
104035 



000012 
004000 
000020 



031374 
030412 
031530 



030260 
000073 



000004 
000257 



000004 

012737 000056 
012737 027706 



000004 



IS: 



001202 
001442 



TST56: 



104410 
032737 
001557 
012711 
004737 
004737 
012737 
005037 
012703 
012702 
112237 
004537 
000010 



040000 002050 



004000 
031374 
031374 
120001 
027420 
000020 
032016 
027416 
031122 



031226 



7$: 



HSTCLR 

MOV 

MOV 

MOV 

ROnCLK 

122113 

JSR 

JSR 

JSR 

HESDAT 

4 

JSR 

DATACLK 

ROMCLK 

021244 

nov 

BIC 

CLR 

CHPB 

BEQ 

ERROR 



«TST56.NEXT 



*12.R2 
#BIT11 ,(R1) 
«B1T4,4(R1) 



PC.SYNLD 

PC.OUTRDY 

R5,MESLD 



PC.OCOR 



73 



4(R1).RA 
#257. R4 
R5 

R5.R4 

IS 

35 



; POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMCII ADDRESS 
.-MASTER CLEAR KMC11 
.•SAVE R2 FOR TYPEOUT 
;SET LINE UNIT LOOP 
.LOAD P0RT4 

.-NEXT yORD IS INSTRUCTION, ROMCLK PC=5304 

;SET H/D BIT 

:L0AD 2 SYNCS 

;WAIT FOR OUTRDY 

.•LOAD 4 CHAR MESSAGE 

.ADDRESS OF MESSAGE 

; CHARACTER COUNT 

;WAIT FOR OCOR 

.SEND MESSAGE 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;READ LU-12 

;PUT "FOUND" IN R4 

: CLEAR UNWANTED BITS 

;R5 = "EXPECTED" 

.IN-ACTIVE AND IN-RDY SHOULD BE CLEAR 
;BR IF OK 

.•ERROR BOTH ARE NOT CLEAR 



• *•••*••»♦ TEST 56 ttt*. 

;*DDCHP CABLE DATA TEST 

;*THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 

:*4 SYNCS. 16 CHAR. EON, 16 CHAR,E0M.16 CHAR.EOM 

;*THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO 

;*THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK 

;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 

; •LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST 



TEST 56 



SCOPE 

MOV 

MOV 

MSTCLR 

BIT 

BEQ 

MOV 

JSR 

JSR 

MOV 

CLR 

MOV 

MOV 

MOVB 

JSR 

10 



f56,STSTNM 
#TST57,NEXT 



#BIT14,STAT1 
3S 

#BIT11,{R1) 

PCSYNLD 

PCSYNLD 

#CRC16,XP0LY 

6S 

#16. .R3 
fFLTDAT,R2 
{R2)*.5i 
R5.SIMBCC 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

.•MASTER CLEAR KMC11 

;SKIP TEST IF NO 

;LOOPBACK CONNECTOR ON 

:SET LINE UNIT LOOP 

;LOAO 2 SYNCS 

.LOAD 2 MORE SYNCS 

;LOAD POLYNOMIAL FOR SOFT CRC CALC 

.•CLEAR OLD BCC 

.•CHARACTER COUNT 

'R2- POINTER 

•LOAD CHAR FOR SOFT BCC CALC. 
;CALC SOFT BCC 
.•SHIFT COUNT 
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5650 0^^^b 000000 

5631 027420 000000 

5652 027422 013737 031230 027420 

5633 027430 005303 

5654 027432 001364 

5655 027434 004537 031530 

5656 027440 032016 

5657 027442 000020 

5658 027444 004737 031504 

5659 027450 004557 031530 

5640 027454 032016 

5641 027456 000020 

5642 027460 004737 051504 
5645 027464 004557 031530 

5644 027470 032016 

5645 027472 000020 

5646 027474 004737 051504 

5647 027500 004757 030260 

5648 027504 005011 

5649 027506 012700 000003 

5650 027512 012705 000020 

5651 027516 012702 052016 

5652 027522 004757 051066 
5655 027526 10*412 

5654 027550 021204 

5655 027552 016104 000004 

5656 027556 112205 

5657 027540 120504 

5658 027542 001 401 

5659 027544 104025 

5660 027546 

5661 027546 005303 

5662 027550 001364 

5665 027552 012705 000020 

5664 

5665 

5666 

5667 

5668 027556 004737 051066 

5669 027562 104412 

5670 027564 021204 

5671 027566 116137 000004 001302 

5672 027574 042737 177400 001302 

5673 027602 004737 031066 

5674 027606 104412 

5675 027610 021244 

5676 027612 016104 000004 

5677 027616 042704 000576 

5678 027622 012705 000001 

5679 027626 120504 

5680 027630 001401 

5681 027652 104015 

5682 027654 

5685 027654 104412 

5684 027656 021204 

5685 027640 116157 000004 001501 



^GE no 

RECEIVER TESTS 



SEQ 0109 



0 
0 

NOV 

O^.C 

BNE 

JSR 

fLTDAT 

16. 

JSR 

JSR 

FLTDAT 
16. 
JSR 
JSR 

FLTDAT 

16. 

JSR 

JSR 

CLR 

MOV 

MOV 

HOV 

JSR 

ROMC'.K 
021204 
MOV 

novB 

CHP8 

BEO 

ERROR 

DEC 
BNE 
MOV 



CALBCC.6t 

R3 

71 

RS.NESLO 



PC.EOM 
RS.HESLD 



PC.EOfI 
R5.HESLD 



PCEOrt 

PC.OCOR 

(R1) 

«5,R0 

#16. .R5 

#FLTDAT.R2 

PCINROY 



4(R1),R4 
(R2)*,R5 
R5.R4 
21 

25 



R5 
IS 

#16. 



.R5 



CHARACTER 
OLD BCC 
LOAD OLD BCC 
DEC COUNT 

BR IF NOT DONE YET 

LOAD SILO 

MESSAGE ADDRESS 

CHARACTER COUNT 

LOAD AN EOM 

LOAD SILO 

MESSAGE ADDRESS 

CHARACTER COUNT 

LOAD AN EOM 

LOAD SILO 

MESSAGE ADDRESS 

; CHARACTER COUNT 

;LOAD AN EOM 

;WAIT FOR OCOR 

;CLEAR LINE UNIT LOOP 

;R0 - MESSAGE COUNT 

;R5= CHARACTER COUNT 

;LOAD MESSAGE POINTED IN R2 

;WAIT FOR INRDY 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

.GET DATA FROM IN SILO 

;PUT CHARACTER IN "FOUND" 

;PUT ••EXPECTED" IN R5 

;1S RECEIVED DATA CORRECT 

;8R IF OK 

.-DATA ERROR 

:DEC CHARACTER COUNT 

:BR IF NOT DONE THIS MESSAGE 

;RESET CHARACTER COUNT 



;CHECK ""^ SEE THAT IN BCC MATCH IS SET 
;AND THA! THE BCC WAS RECEIVED CORRECTLY 



JSR 

RONCLK 

021204 

MOVB 

BIC 

JSR 

ROMCLK 

021244 

NOV 

BIC 

NOV 

CMPB 

BEQ 

ERROR 

ROMCLK 
021204 
N0V6 



PCINROY 



4<R1).$TNP2 
#1 77400, $TNP2 
PCINROY 



4(R1),R4 

f576.R4 

f1,R5 

R5.R4 

25* 

15 



4(R1).»THPU1 



;«AIT FOR INRDY 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:GET FIRST HALF OF CRC 
;PUT IN $TMP2 
:CLEAR HI BYTE 
;UAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

;PUT "FOUND" IN R4 
;CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
;1S IN BCC NATCH SET? 

;IN BCC NATCH ERROR 

;NEXT WORD IS INSTRUCTION. RONCLK PC=5504 
.-GET LAST HALF 
.PUT IN $1NP1 
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G 9 



SEO 0110 



S686 


02^646 


042737 


000377 


001500 


5687 


027654 


053737 


001300 


001302 


S688 


027662 


023757 


051250 


001 502 


5689 


02767C 


001401 






5690 


027672 


104027 






5691 


027674 


012702 


032016 




5692 


027700 


005500 






5693 


027702 


001307 






5694 


027704 


104420 






569S 










5696 










5697 










5698 










5699 










5700 










5701 










5702 










5703 










5704 










5705 










5706 










5707 










5708 










5709 


027706 


000004 




001202 


5710 


027710 


012737 


000057 


5711 


027716 


012737 


003662 


001442 


5712 










5713 


027724 


104410 




AA^Af f\ 

002050 


5714 


027726 


052757 


A 4 A A A A 

040000 


5715 


027754 


A A • ^ W 

001553 






5716 


027736 


012711 


A A J AAA 

004000 




5717 


027742 


A A « ^ V *i 

004737 


031374 




5718 


027746 


A A t ^ V ^ 

004757 


031374 




5719 


027752 


012737 


120001 


A«4 


5720 


027760 


A A C A V Y 

005057 


A V A A 4 A 

030010 




5721 


027764 


A « ^ A V 

012705 


A A A A^ T 

000073 




5722 


027770 


012702 


032012 




5723 


027774 


112257 


A V A A AX 

030006 




5724 


050000 


A A « W 

004557 


031122 




5725 


050004 


A AAA 4 A 

000010 






5726 


A* AAA d 

050006 


AA AA A A 

000000 






5727 


050010 


A A A A A A 

000000 




AT A A 4 t\ 

030010 


5728 


050012 


015757 


A V 4 ^ V A 

031230 


5729 


050020 


AAV V A V 

005503 






5730 


050022 


001564 






5751 


050024 


A A J f V ^ 

004537 


A V 4 C T A 

031530 




5752 


050050 


A V ^ A « 

052012 






5753 


050052 


A AAA V V 

000075 






5754 


030034 


004f 3f 






5755 


050040 


004757 


030260 




5756 


050044 


005011 






5757 


050046 


012700 


000073 




5758 


050052 


012702 


032012 




5759 


050056 


004757 


051066 




5740 


050062 


104412 






5741 


050064 


021204 







4$: 



3f: 



TST57: 



7$; 



5S: 
6S: 



BIC 

BiS 

CHP 

BEQ 

ERROR 

HOV 

DEC 

BNE 

ADVANCE 



f377,STHP1 
STHPI .tTnP2 
CALBCC.STMP2 
4S 

27 

#rLT0AT,R2 
RO 
IS 



;CLEAR LO BYTE 

;16 BIT BCC NOW IN STnP2 

;IS IT CORRECT? 

;BR IF OK 

:RESET MESSAGE POINTER 
.-DECREMENT COUNTER 
;BR IF NOT DONE 



ADVANCE TO NEXT TEST 



TEST 57 • 

;*DDCHP CABLE DATA TEST 

;«THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 
;*4 SYNCS. 59 DATA CHARACTERS. E0« WITH GARBAGE CHARACTER 
.-•THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK 
.-•RECEIVED DATA IS VERIFIED AS IS IN BCC NATCH 
:*LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST 



IS: 



. * 

TCCT 


7 r 


crnoc 




nuv 


4^7 tTCTWM 
w J % . 9 1 d 1 nn 




accnD yFVT 
VVCUr .NC * 1 


MCTn D 




BIT 
CI 1 




DC a 

DCU 




MOV 


fBITll .(R1 ) 


JSR 


PC.SYNID 


JSR 


PC.SYMLD 


MOV 


fCRC16.XP0LY 


CLR 


6S 


MOV 


#59.. R3 


MOV 


«MESDAT,R2 


MOVB 


(R2)*,5S 


JSR 


R5.SIMBCC 


10 




0 




0 




MOV 


CALBCC.6S 


DEC 


R3 


BNE 


7S 


JSR 


R5.HESLD 


MESDAT 




59. 




JSR 


PC. EON 


JSR 


PC.OCOR 


CLR 


(R1) 


HOV 


#59.. RO 


MOV 


f MESDAT. R2 


JSR 


PC.INROY 


ROMCLK 




021204 





; LOAD THE NO. OF THIS TEST 

; POINT TO THE ENr> Of PASS HANDLER, 

:R1 CONTAINS BASE KMC11 ADDRESS 

.•MASTER CLEAR KMC11 

;SKIP TEST IF NO 

aOOPBACK CONNECTOR ON 

;SET LINE UNIT LOOP 

;LOAD 2 SYNCS 

.-LOAD 2 MORE SYNCS 

;LOAD POLYNOMIAL FOR SOFT CRC CALC 

: CLEAR OLD BCC 

; CHARACTER COUNT 

;R2= POINTER 

;L0AD char FOR SOFT BCC CALC. 

;CALC SOFT BCC 

.•SHIFT COUNT 

.-CHARACTER 

:OLD BCl 

.-LOAD OLD BCC 

.DEC COUNT 

;BR IF NOT DONE YET 

.LOAD SILO 

.-MESSAGE ADDRESS 

.•CHARACTER COUNT 

.LOAD AN EOM 

.WAIT FOR OCOR 

.CLEAR LINE UNIT LOOP 

;R0= CHARACTER COUNT 

.-LOAD MESSAGE POINTER IN R2 

.-WAIT FOR INRDY 

.-NEXT WORD IS INSTRUCTION. ROMCLK PC -5504 
;GET DATA FROM IN SILO 



CZmt HAcni 30a(1052) 08-jul-80 



CZrrE.Pll 08- 


-JUL -80 


08:24 


S742 


V V WW 


016104 


AA AA A ^ 

000004 




030072 


112205 




5744 


030074 


120504 




5745 


030076 


001401 




5746 


030100 

V ./V 1 w 


104025 




5747 


030102 






5748 


030102 


AAC VAA 

005300 




5749 


030104 


AAi HA. J 

001 364 




5750 








5751 








5752 








5753 








5754 


030106 


004737 


ATI A^^ 

031066 


5755 


030112 


1U44 1 2 




5756 


030114 


/M 1 Oft/ 

02 1 c04 




5757 


030116 


•161 57 


AAAAAy 

000004 


5758 


030124 


04^ ( if 


1 7 7/. Aft 

1 f y40U 


5759 


030132 


004 fir 


ATI AiliL 

031066 


5760 


0301 36 


1 0441 i 




5761 


030140 


A0 1 *oy y 
021244 




5762 


030U2 


A1 ^1 fXL 

016104 


AAAAA/. 
UwUOO*! 


5763 


030146 


Ay 97A/. 

042^04 


AAAT7/k 


5764 


030152 


A1 07AC 
01 « /O? 


AAAAA1 
00000 1 


5765 


030156 


1 20504 




5766 


030160 


AA1 y A1 

001401 




5767 


030162 


1 A/ A1 C 

10401 5 




5768 


030164 






5769 


0301 6A 


1 Ay y 1 0 
1 0441 C 




5770 


030166 


AO 1 OAy 
Ocl t04 




5771 


030170 


1 1 *.1 17 

n oi 3f 


AAAAAy. 


5772 


030176 


04t / if 


AAAt77 


5773 


030204 


yJiif if 


AA1 xr\(\ 


5774 


030212 


A0T7t7 

yjiifif 


At 1 OTA 


5775 


030220 


AA1 tni 




5776 


030222 


1 Ay. A37 




5777 


030224 


1 f\LL OA 




5778 








5779 








5780 








5781 








5782 








5783 


030226 






5784 








5785 








5786 








5787 


030226 


1 A/, y. 1 5 




5788 


030230 


A0 1 Tik/. 
02 1 J0*» 




5789 


030232 


A1 77T7 

0 1 » f J' 


1 CI ATA 


5790 


030240 


1 A4. 1 T 7 

1 OO 1 J f 


AtAOCA 
0302)0 


5791 


030244 


1 AA 1 T 7 

lOGl if 


0302)0 


5792 


030250 




U JVC 


5793 


030254 


000207 




5794 


030256 


000000 




5795 








5796 








5797 


030260 







08:24 PAGE 112 

BASIC RECEIVER TESTS 



H 9 



SEO 0111 



2S: 



NOV 

NOVB 

CPIP8 

BEO 

ERROR 

DEC 
BNE 



4(R1).R4 

(R2)*,R5 

R5.R4 

2S 

25 

RO 
IS 



;PUT CHARACTER IN "FOUND" 
;PUT "EXPECTED" IN R5 
.IS RECEIVED DATA CORRKT 
:BR IF OK 
;DATA ERROR 

.DECREMENT COUNTER 
;BR IF NOT DONE 



:CHECK TO SEE THAT IN BCC HATCH IS SET 
;AND THAT THE BCC WAS RECEIVED CORRECTLY 



001302 
001302 



?5$: 



001301 
001300 
001302 
001 302 



3$: 



JSR 

ROnCLK 
021204 
HOVB 
BIC 

JSR 

RONCLK 

021244 

NOV 

BIC 

NOV 

C«PB 

BEO 

ERROR 

RONCLK 

021204 

NOVB 

BIC 

BIS 

CNP 

BEO 

ERROR 

ADVANCE 



PC.INRDY 



4(R1).$TMP2 
f1 77400. fTNP2 
PC.INRDY 



4(R1).R4 

#576. R4 

*1.R5 

R5.R4 

25$ 

15 



;WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION, RONCLK PC=5304 
;G£T FIRST HALF OF CRC 
;PUT IN $TNP2 
.CLEAR HI BYTE 
:UAIT FOR INRDY 

.-NEXT WORD IS INSTRUCTION. RONCLK PC = 5304 

.•PUT "FOUND" IN R4 
: CLEAR UNWANTED BITS 
;PUT "EXPECTED" IN R5 
;IS IN BCC NATCH SET? 



:IN BCC NATCH ERROR 



4(R1),tTNP1»1 
#377.$TNP1 
$TNP1 .$TNP2 
CALBCC.$TNP2 
3$ 
27 

; ADVANCE TO NEXT TEST 



;NEXT WORD IS INSTRUCTION, 
;GET LAST HALF 
;PUT IN STNP1 
;CLEAR LO BYTE 
:16 BIT BCC NOW IN (TNP2 
;IS IT CORRECT? 
;BR IF OK 



RONCLK PC=5504 



.-SUBROUTINES 



GETSI 



;THIS SUBROUTINE READS 
;NITCH IS ROTATED LEFT 



LU 17. AND PUTS IT INTO NITCH. 
UNTILL THE SI BIT IS IN CARRY 



030256 



NITCH: 



OCOR: 



RONCLK 

021364 

NOV 

ROLB 

ROLB 

ROLB 

RTS 

0 



aKNP04, NITCH 

NITCH 

NITCH 

NITCH 

PC 



.-NEXT WORD IS 

;P0RT4 LU 17 
;ST0RE'LU 17 



INSTRUCTION. RONCLK PC:5304 



.-PUT SI IN THE CARRY BIT 



i 



tZKCE «ACtn 30*11052) 08-JUL-80 



CZKE.Pn 08- 


-JUL-80 


08:24 


C 7QS 

? » TO 








^ 7QQ 










U jUcOU 


104412 






U jUcOc 


021364 




'AO? 


U^UcO*> 


032777 


000020 




V^Vc > c 


001772 




JOVl* 


uauc'* 


000207 






















V JVC ' u 






70vO 
















jO 1 u 








1 

JO 1 1 








JO 1 £ 


V JVC ' U 


0156S7 


001276 


JO I ^ 


nxn in? 


062746 


000002 


JO 1 




012761 


AA AA 

000026 


JO 1 J 


w JV J * ~ 


104412 




JO 1 w 


U Jv J 1 O 


122114 




JO 1 f 


V JV JCv 


004737 


AVA^ 4 ^ 

030412 


JO ) o 


U Jv JC** 


012761 


A A A A A 4 

000001 


^A1 Q 

JO I T 


U Jw J Jc 


104412 




JOcw 


V Jv J J** 


1221 11 




JOC I 


U JU J JO 


012761 


000026 


JOCC 


V JV J**"^ 


104412 




jOc J 


U JV JHO 


122110 




JOtH 


0X0X5C 

V JV J JV 


005337 


A A 4 ^ 9X 

001276 


jOc J 


U JV J J** 


001361 


AVA/ 4 ^ 

030412 


JOC V 


0103S6 


004737 




030362 


005061 


A AAA A £ 

000004 


JvCw 


030366 


104412 




SA?Q 

JOC ▼ 


030570 


122111 






030372 


012761 


A A A T A i 

000301 


S8^1 


030400 

v^v~ vw 


4 A f i 4 ^ 

104412 






030^02 


4 4 4 A 

1221 10 




S8^^ 


030404 


A A / 

004737 


030260 


JO 




A A A A ^ 

000207 




JO J J 


















030412 






JO JO 








S8S9 








SlUO 


030412 


A A f A V ^ 

005037 


A A 4 V Ax 

001306 




030416 








030416 


4 A i / 4 ^ 

104412 




S84i3 


030420 


021224 




S8i4 


030422 


032777 


A AAA') A 

000020 




030430 


AA 4 A A i 

001004 




5846 


050432 


A A C ^ V 7 

005257 


AA4 TAX. 

001 306 


58*7 


0SO436 


AA 4 V X 9 

001367 




58*8 


050440 


1 l\L f\ Xi. 




58A9 


050442 


000207 




5850 








5851 








5852 


050444 






5853 









08:24 PAGE 113 
SUBROUTINES 



1 9 



SEO 0112 



S'NC; 



U: 



OUTRDV: 



It: 



2%. 



CHAR: 



.-THIS SUBROUTINE SPINS ON OCOR 



ROMCLK 

021364 

BIT fBIT4.aKNP04 

BEQ OCOR 
RTS PC 



NEXT WORD IS INSTRUCTION. RONCLK PC:5504 
P0RT4 LU 17 
IS OCOR SET? 
BR IF NO 

OK OCOR IS SET. 60 BACK 



.■THIS SUBROUNTINE LOADS THE SILO WITH THE NUMBER OF SYNC 
;CHARACTERS PASSED TO IT IN THE WORD AFTER THE JSR CALL 
:AND A NON-SYNC CHARACTER (301) 



MOV 

ADD 

MOV 

ROMCLK 

122114 

JSR 

MOV 

ROMCLK 

122111 

MOV 

ROMCLK 

122110 

DEC 

BNE 

JSR 

CLR 

ROMCLK 

122111 

MOV 

ROMCLK 

122110 

JSR 

RTS 



a(SP)*.tTMPO 

#2.-(SP) 

i26.4(R1) 



PC.OUTRDY 
«1.4(R1) 



f26.4(R1) 



tTMPO 
1$ 

PC.OUTRDY 
4(R1) 



«301,4(R1) 



PC. OCOR 
PC 



GET COUNT 
ADJUST STACK 
LOAD PORT 4 

NEXT WORD IS INSTRUCTION. 
LOAD SYNC REGISTER 
WAIT FOR OUTRDY 
LOAD P0RT4 

NEXT WORD IS INSTRUCTION. 
SET SOM 
LOAD PORT 4 

NEXT WORD IS INSTRUCTION, 

LOAD OUT DATA 

ALL DONE? 

BR IF NOT 

WAIT FOR OUTRDY 

LOAD P0RT4 

NEXT WORD IS INSTRUCTION. 
SET SOM 
LOAD P0RT4 

NEXT WORD IS INSTRUCTION, 
LOAD OUT DATA 
WAIT FOR OCOR 



ROMCLK PC=5304 

ROMCLK PC=5304 
ROMCLK PC=5304 

ROMCLK PC=5304 
ROMCLK PC=5304 



.■THIS SUBROUTINE SPINS ON OUT READY 



CLR 

ROMCLK 

021224 

BIT 

BNE 

INC 

BNE 

ERROR 

RTS 



STHP4 



«6IT4.aKMP04 
21 

tTMP4 
IS 

36 
PC 



.-CLEAR TIMER 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

P0RT4 LU11 

IS OUT RDY SET? 

BR IF YES 

INC TIMER 

KEEP CHECKING IF NOT DONE 
ERROR. OUT READY NOT SET 



.-THIS SUBROUTINE LOADS THE SILO WITH 3 SYNCS 



C2HCE MACtll 50a{10>2) 08-JUL-80 
C2KCE.P11 08-JUL-80 08:24 



08:24 PAGE 1U 
SUBROUTINES 



J 9 



SEQ 0113 



5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

586 

586 

5864 

5865 

5866 

5867 

5868 

5869 

5870 

5871 

5872 

5873 

5874 

5875 

5876 

5877 

5878 

5879 

5880 

5881 

5882 

5883 

5884 

5885 

5886 

5887 

5888 

5889 

5890 

5891 

5892 

5893 

5894 

5895 

5896 

5897 

5898 

5899 

5900 

5901 

5902 

5903 

5904 

5905 

5906 

5907 

5908 

5909 



030444 
030450 
030454 
030462 
030470 
030472 
030474 
030500 
030506 
030510 
030512 
030520 
030522 
030524 
030530 
030532 
030536 
030544 
030546 
030550 
030554 



030556 



030556 
030562 
030566 
030572 
030600 
030602 
030604 
030610 
030612 
030614 
030620 



030622 



013637 
062746 
012737 
012761 
104412 
122114 
004737 
012761 
104412 
122111 
012761 
104412 
122110 
005337 
001361 
004737 
013761 
104412 
122110 
004737 
000207 



013637 
062746 
004737 
013761 
104412 
122110 
004737 
104412 
122110 
004737 
000207 



001300 
000002 

000003 001276 
000026 000004 



030412 

000001 000004 



000026 000004 



001276 
030412 

001300 000004 



030260 



1$: 



CHARSD: 



001300 
000002 
030412 
001300 



030412 



030260 



000004 



.-AND THE CHARACTER PASSED TO IT. 



NOV 
ADD 
MOV 

mv 

ROHCLK 
122114 
JSR 
HOV 

ROHCLK 
122111 

nov 

ROnCLK 

122110 

DEC 

BNE 

JSR 

nov 

RONCLK 
122110 
JSR 
RTS 



030622 


012757 


000073 


001300 


030630 


005737 


031062 




030654 


100470 






030656 


001052 






030640 


062737 
012757 


000002 


001300 


030646 


000003 


001276 


030654 


012761 


000026 


000004 


050662 


104412 






050664 


122114 






050666 


004737 


030412 




050672 


012761 


000001 


000004 



a(SP)*,$THP1 
f2.-(SP) 
#3.»THP0 
ff26.4(R1) 



PC.OUTRDY 
f1,4(RM 



«26.4(R1) 



»THPO 
U 

PC.OUTRDY 
$T»IP1,4(R1) 



PC.OCOR 
PC 



;GET CHARACTER 
;ADJUST STACK 
;SET FOR 3 SYNCS 
.-LOAD P0RT4 

.•NEXT WORD IS INS I RUCTION. RONCLK PC =5304 
.-LOAD SYNC REGISTER 
.WAIT FOR OUTRDY 
;LOAD P0RT4 

.NEXT WORD IS INSTRUCTION, ROMCLX PC=5504 
;SET SON 
.LOAD P0RT4 

.-NEXT WORD IS INSTRUCTION. ROHCLK PC=5304 

;L0AD OUT DATA 

;ALL DONE? 

;BR IF NOT 

.•WAIT FOR OUTRDY 

;LOAD P0RT4 

;NEXT WORD IS INSTRUCTION. KOMCLK PC=5304 
.LOAD OUT DATA 
;WAIT FOR OCOR 



.•THIS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT. 



NOV 
ADD 

JSR 
NOV 

RONCLk 
122110 
JSR 

RONCLK 
122110 
JSR 
RTS 



a(SP)*.»TNP1 
#2.-(SP) 
PC. OUTRDY 
STNP1.<i(R1) 



PC. OUTRDY 



PC.OCOR 
PC 



;6ET CHARACTER 
:ADJUST STACK 
.-WAIT FOR OUTRDY 
;LOAD P0RT4 

.NEXT WORD IS INSTRUCTION. RONCLK PC=5304 
;L0AD OUT DATA 
.-WAIT FOR OUTRDY 

;NEXT WORD IS INSTRUCTION. RONCLK PC=5304 
;LOAD GARBAGE CHAR 
;WAIT FOR OCOR 



SILOLD: 



.THIS SUBROUTINE FILLS THE OUT SILO 
: WITH A BINARY COUNT PATTERN 



IS: 



NOV 

TST 

BNI 

BNE 

ADD 

NOV 

NOV 

RONCLK 

122114 

JSR 

NOV 



#73.ITNP1 

SCHAR 

4$ 

2S 

#2.$T«P1 
f3.$THP0 
«26.4(R1) 



PC. OUTRDY 
«1.4(R1) 



;LOAD COUNT 
.FIRST TINE HERE? 
;BR IF BITSTUFF 
-BR IF NO 

•ADD 2 TO CHARACTER C0UN1 
.-SET FOR 3 SYNCS 
;LOA0 P0RT4 

.•NEXT WORD IS INSTRUCTION. RONCLK PC = 5304 
;LOAD SYNC REGISTER 
.WAIT FOR OUTRDY 
;LOAD P0RT4 



CZKCE MACtll 50A(1052) 08-JUL-80 



C2KCE.P11 08 


-JUL-80 08:24 




(\Xt\7CM\ 


1 AAA 1 ? 




Kq* 1 

JT t 1 




155111 






nXA7ft^ 


ni 57A1 


0000?^ 




0X071 5 


1 A^^l 7 






ftXft71^ 


1 551 1ft 




?T 1 J 


nxn7i A 


OOS337 


001? 76 




OXft7P9 
v^v> cc 


001 3^1 




SOI 7 


yjjyjf c** 


004737 


03041? 




010730 


01 3761 


031062 

v<J ' VVC 




0X07 3A 


10441? 




SQ70 


030740 


1221 10 






03074? 


005737 


031064 

V ^ ■ w v~ 




0X074A 


001407 

wV/ 1 tw f 






030750 


013757 


031062 

W ^ < Wb 




03075A 


004537 


031612 

V ^ ■ V 1 c 




030762 


000000 

www 






030764 


000010 




JtC f 




005237 

vWC J ' 


03106? 

V J 1 vuc 


SQ?8 


C30772 


022737 

VCC » rff 


000400 

WV~WW 






001403 






031002 


005337 


001300 

w ■ ^ w w 




ATI AAA 

V J 1 WW 


001 346 






031010 


004737 

W~ * J f 


030260 

V ^ W b w w 




031014 


000207 

w WC V ' 






031016 


005037 


031062 

w J ' www 


S9^^ 

JTJJ 


03102? 


012737 

VIC* J ' 


1 77777 




031030 


005037 


032010 


5937 

J T J 9 


031034 


062737 

wc> • y f 


000002 

WW W WW 


5938 


031042 


012761 


000001 


5939 


031050 


104412 




5940 


031052 


122111 




5941 


031054 


104412 




5942 


031056 


122110 




5943 


031060 


000721 




5944 


031062 


000000 

www WW 




5945 


031064 


000000 

WW WW WW 




5946 








5947 








5948 


031066 






5949 








5950 








5951 








5952 








5953 








5954 








5955 








5956 


031066 

V ^ 1 V w 


012737 


000000 


5957 


031074 






5958 


031074 


104412 




5959 


051076 


021244 




5960 


031100 


032777 


000020 


5961 


031106 


001004 




5962 


031110 


005237 


001276 


5963 


031114 


001367 




5964 


031116 


104037 




5965 


031120 


000207 
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SUBROUTINES 



K 9 



ScO 0114 



000004 



000004 



030762 



031062 



2S: 



051064 

001500 
000004 



5S: 
6S: 



5S: 
4S: 



SCHAR: 
STUFLG: 



INRDY: 



ROnCLK 

122111 

NOV 

ROnCLK 

122110 

DEC 

BNE 

JSR 

MOV 

ROWCLK 

122110 

TST 

BEQ 

nov 

JSR 

0 

10 

INC 

CHP 

BEQ 

DEC 

BNE 

JSR 

RTS 

CLR 

nov 

CLR 

ADD 

MOV 

ROMCLK 

122111 

ROnCLK 

122110 

BR 

0 

0 



1$: 



«26,4(R1) 



tfHPO 
IS 

PCOUTRDY 
SCHAR.4(R1 ) 



STUFLG 
6S 

SCHAR. 5S 
R5.STffCL 



SCHAR 

#400, SCHAR 
5S 

STHPl 
2S 

PC.OCOR 
PC 

SCHAR 

#-1, STUFLG 
BITCON 
#2,$TMP1 
#1 ,4(R1) 



2S 



.■NEXT WORD IS INSTRUCTION. ROMCLK OC=5504 
;SET S0« 
.-LOAD PORT 4 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5504 

.•LOAD OUT DATA 

;ALL DONE? 

:BR IF NOT 

.-yAlT FOR OUTRDV 

.-LOAD PORT 4 

.•NEXT WORD IS INSTRUCTION. ROHCLK PC=5504 
.•LOAD OUT DATA 
;BITSTUFF??? 
•BR IF NO 

•IT IS SDLD SO CHECK BITSTUFFING 
;ADD ANY BIT STUFF CLOCK TICKS 
; CHARACTER 
; CHI FT COUNT 
;NEXT CHARACTER 
:ALL DONE? 

: DECREMENT COUNT 
;BR IF NOT DONE 
:UA1T FOR OCOR 

;START PATTERN AT ZERO 
;SET BITSTUFF FLAG 
.-CLEAR STUFF COUNT 
;ADD 2 TO CHARACTER COUNT 
;SET BITO IN P0RT4 

.•NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
;SET SOH! 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
.-LOAD GARBAGE CHAR 
:G0 LOAD SILO 



;THIS SUBROUTINE SPINS ON INRDY 
;1F INROY FAILS TO SET THE DELAY TIMES OUT AND AN 
.•ERROR IS REPORTED. FOR BETTER SCOPE LOOPS THIS 
.•DELAY CAN BE MADE SHORTER BY ALTERING THE NUMBER 
; INITIALLY LOADED INTO STMPO. THE SMALLER THE NUMBER 
.'THE SHORTER THE DELAY. 0 IS THE LONGEST DELAY. 



2S: 



MOV 

ROMCLK 

021244 

BIT 

BNE 

INC 

BNE 

ERROR 

RTS 



#0, STMPO 



#BIT4.aKMP04 
2S 

STMPO 
IS 

37 
PC 



.-SET UP DELAY COUNTER 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

;P0RT4 LU12 

;IS INRDY SET? 

;BR IF YES 

;INC DELAY 

;TRY AGAIN 

; ERROR. NO INRDY 

; RE TURN 



HACrll 50A(1052) 08-JUL-80 08; 



CZKCt.PIl 08- 


-JUL-80 08:24 


5966 








5967 








5968 


031122 






5969 








5970 








5971 








5972 








5973 


031122 


010046 




5974 


031124 


012537 


001276 


597^ 


031130 


012537 


001300 


5976 


031134 


012537 


031230 


5977 


031140 


013700 


031230 


5978 


031144 


000241 




5979 


031146 


006037 


031230 


5980 


03'i152 


006037 


001300 


5981 


031156 


005500 




5982 


031160 


006000 




5983 


031162 


103011 




5984 


031164 


013700 


031226 


5985 


031170 


043700 


A V a 9 A 

031230 


5986 


031174 


043737 


031226 


5987 


031202 


050037 


031230 


5988 


031206 


005337 


001276 


5989 


031212 


001352 


A V 4 t A 

031230 


5990 


031214 


013700 


5991 


031220 


006000 




5992 


031222 


012600 




5993 




000205 




5994 


031226 


000000 




5995 


031230 


A A A AAA 

000000 




5996 




AAA ^ A A 

000200 




5997 




4 1A A A 4 

120001 




5998 




102010 




5999 








6000 








6001 


031232 






6002 








6003 








6004 








6005 








6006 


031232 


013637 


A A 4 V A A 

001300 


6007 


031236 


062746 


AA A AA ^ 

000002 


6008 


031242 


012737 


A A A A A ^ 

000002 


6009 


031250 


012761 


A AAA '\ A 

000026 


6010 


031256 


104412 




6011 


031260 


122114 




6012 


031262 


004737 


A9 A i 4 ^ 

030412 


6013 


031266 


012761 


A A A A A 4 

000001 


6014 


03»cr4 






6015 


031276 


122111 




6016 


031300 


012761 


000026 


6017 


031306 


104412 




6018 


031510 


122110 




6019 


031312 


005337 


001276 


6020 


031316 


001361 




6021 


031320 


004737 


030412 



24 PAGE 116 
SUBROUTINES 



L 9 



SEQ 0115 



SIHBCC: 



031230 



;THIS SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN 
;IN XPOLY. THE CORRECT CRC IS SLPADRED IN CALBCC, AND THE 
.STATE OF THE LSB OF THE BCC IS $LPADRED IN THE C BIT. 

.-SAVE RO ON STACK 
;$TMPO = SHIFT COUNT 
;$THP1 = CHARACTER 
; CALBCC = OLD BCC 
.-PUT OLD BCC IN RO 

.•SHIFT OLD BCC 
: SHIFT CHARACTER 
.-ADD CHAR CARRY TO OLD BCC 
.•PUT BITO TO CARRY BIT 
.■CARRY IS FEEDBACK BIT 
;IF FEEDBACK = 1 
jEXCLUSIVLY OR XPOLY TO CALBCC 



;DEC SHIFT COUNT 
:BR IF NOT DONE 
;PUT RESULT IN RO 
.•SHIFT BITO TO CARRY 
.-RESTORE RO 
;$LPADR 





MOV 


RO.-(SP) 




NOV 


(R5)*.$TNP0 




NOV 


CR5)*.$THP1 




NOV 


(R5>*, CALBCC 




NOV 


CALBCC. RO 




CLC 






ROR 


CALBCC 




ROR 


$TNP1 




ADC 


RO 




ROR 


RO 




BCC 


2$ 




NOV 


XPOLY. RO 




6IC 


CALBCC. RO 




BIC 


XPOLY. CALBCC 




BIS 


RO, CALBCC 


2t: 


DEC 


$TNPO 




BNE 


1S 




NOV 


CALBCC. RO 




ROR 


RO 




NOV 


CSP)*,RO 




RTS 


R5 


XPOLY: 


0 




CALBCC 


: 0 




LRC8=200 




CRC 16= 


120001 




CRC.CCITT=102010 



BCCLD: 



:THIS SUBROUTINE LOADS THE OUT SILO WITH 2 SYNCS 
.-WITH SON SET, AND ONE CHARACTER PASSED TO IT 
:W1TH THE SON BIT CLEAR (ENABLE CRC) 



001276 
000004 



000004 
000004 



1$: 



NOV 

ADD 

NOV 

NOV 

RONCLK 

122114 

JSR 

NOV 

RONCLK 

122111 

NOV 

RONCLK 

122110 

DEC 

BNE 

JSR 



a(SP)*,»TNP1 
12, -(SP) 
#2,tTNP0 
«26,4{R1) 



PC.OUTROY 
f1,4(Rl) 



ff26.4(R1) 



$TNP0 
IS 

PC.OUTROY 



;GET CHARACTER 
;AOJUST STACK 
.-SET FOR 2 SYNCS 
;LOAD P0RT4 

.•NEXT WORD IS INSTRUCTION. RONCLK PC=5304 
:L0AD SYNC REGISTER 
.-WAIT FOR OUTRDY 
.LOAD P0RT4 

;NEXT UORD IS INSTRUCTION. RONCLK PC=5304 

:SET son 

;LOAD P0RT4 , 

;NEXT UORD IS INSTRUCTION, RONCLK PC=5304 

:LOAD OUT DATA 

;ALL DONE? 

:BR IF NOT 

;UAIT FOR OUTRDY 



CZKCE 


HAcrii 


30A(10>2) 08-JUL 


CZKCE.P11 08 


-JUL-80 


AO . 

08:24 


6022 


031324 


015761 


AA1 lAA 
001 300 


6023 


031332 






6024 


031334 


122110 




6025 


031336 


004737 


AVA^AA 


6026 


031342 


000207 




6027 








6028 








6029 


031344 






6030 








6031 








6032 








6033 


031344 


1 vh (lie 




6034 


031346 






6035 


031350 


^^\^^^ 77 


1 ^A^3A 


6036 


031354 


UUUcU f 




6037 








6038 








6039 


031356 






6040 








6041 








6042 








6043 


031356 


■ (/■••I i£ 




6044 


031360 


vc 1 30*1 








1 A#>.1 77 


1 3U3UO 


6046 


031366 


106177 


150502 


6047 


031372 


000207 




6048 








6049 








6050 


031374 






6051 








6052 








6053 
6054 


031374 






6055 


031402 


Ai 37/L1 


wUUUcO 


6056 


031410 


1 nLL^ 3 




6057 


031412 


1 331 1^ 




6058 


031414 


Am 7X7 


nXA£1 3 
W jut 1 c 


6059 


031420 


A1 37A1 


AAAAAI 

UvUUU 1 


6060 


031426 


1 U«IH 1 C 




6061 


031430 


1331 1 1 




6062 


051432 


ni 37<^i 

U 1 C ( O 1 


vUUvcO 


6063 


031440 


1 (^LL^ 3 

1 W«l«l 1 C 




6064 


031442 


1 331 in 

1 cc 1 1 U 




6065 


031444 




nni 37<^ 

UU Ic • o 


6066 


03U50 


AAI XA1 




6067 


031452 


AAA3A7 




6068 








6069 








6070 


031454 






6071 








6072 








6073 








6074 


03U54 


004737 


050412 


6075 


031460 


012761 


000001 


6076 


031466 


104412 




6077 


031470 


122111 





08:24 PAGE 117 
SUBROUTINES 

)4 HOV 

ROMCLK 
122110 
JSR 
RTS 



n 9 



SEO 0116 



GETQO: 



GETQI: 



SYNLO: 



001276 



IS: 



SOH: 



$TW1,4(R1) 



PC.OCOR 
PC 



;LOAO PORT 4 

;NEXT WORD IS INSTRUCTION. ROMCLK PC=53C4 

;LOAD OUT DATA 

:UAIT FOR OCOR 



;THIS SUBROUTINE READS THE STATE OF THE TRANSMIT 
:BCC LSB AND PUTS IT IN THE CARRY BIT 



ROMCLK 
021364 

ROLB aKnP04 
RTS PC 



:NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 

;P0RT4.LU-17 

;PUT QO in CARRY 

.•RETURN 



.•THIS SUBROUTINE READS THE STATE OF THE RECEIVE 
;BCC LSB AND PUTS IT IN THE CARRY BIT 



ROMCLK 
021364 

ROLB aKnP04 
ROLB aKnP04 
RTS PC 



.-NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;P0RT4 LU-17 

.PUT QO in CARRY 

;PUT 01 IN CARRY 

.•RETURN 



:THIS SUBROUTINE LOADS OUT SILO WITH 
;2 SYNC CHARACTERS WITH SOM SET 



nov 

NOV 

ROMCLK 

122114 

JSR 

NOV 

RONCLK 

122111 

NOV 

RONCLK 

122110 

DEC 

BNE 

RTS 



f2,$TNP0 
#26,4(R1) 



PC.OUTRDY 
#1 ,4(R1) 



f26,4(R1) 



STNPO 
IS 

PC 



;LOAD COUNTER FOR 2 SYNCS 
;P0RT4 26 

.•NEXT OORD IS INSTRUCTION. RONCLK PC=5304 
;LOAD SYNC REG 
;UAIT FOR OUTRDY 
;LOAD P0RT4 

.-NEXT WORD IS INSTRUCTION, RONCLK PC=5304 

:SET SON 

;P0RT.26 

.-NEXT WORD IS INSTRUCTION. RONCLK PC=5304 
:LOAD OUT DATA WITH SYNC 
:DECREHENT COUNTER 
;BR IF NOT DONE 
; RETURN 



.•THIS SUBROUTINE LOADS SON AND OUT DATA WITH A 
;GARBAGE CHARACTER (0) 



JSR PC.OUTRDY 
NOV f1.4(R1) 
RONCLK 
122111 



;WAIT FOR OUTRDY 
;P0RT4 1 

;NEXT OORD IS INSTRUCTION. RONCLK PC=5504 
;SET SON 



CZKCE 


HACV11 


5OA(10)2 


CZKCE.P11 08 


-JUL-80 


6078 


051472 


005061 


6079 


03^476 


104412 


6080 


051500 

V ^ ■ WW 


122110 


6081 

WW 1 


031 502 


000207 


6082 






6083 






6084 


031504 




6085 






6086 






6087 






6088 


031504 


00'*7i7 


6089 


031510 


01 c'61 


6090 


031516 


104412 


6091 


031520 


122111 


6092 


031522 


i04h 12 


6093 


031524 


1221 lO 


609A 


031526 


00020 f 


6095 






6096 






6097 


031550 




6098 






6099 






6100 






6101 






6102 


051550 


0100^6 


6103 


051552 


A1 OC AA 

01 2500 


6104 


051554 


A1 OC17 

012557 


6105 


051540 


AA/ "7X7 

004757 


6106 


051544 


1 1 2001 


6107 


031550 


I0*»H 12 


6108 


031552 


122 1 10 


6109 


031554 


00)33r 


6110 


051560 


001 30 f 


6111 


031562 


OOh fir 


6112 


051566 


A1 OAAA 

01 2600 


6113 


051570 


0002U) 


6114 






6115 






6116 


051572 




6117 






6118 






6119 






6120 


031572 


ni 07^1 
012r01 


6121 


051600 


1 AAA1 ? 
1 Uh*» 1 1 


6122 


051602 


1 001 1 0 

1 221 1 2 


6123 


051604 


1 f\LL 1 0 


6124 


031606 


100111 

1221 1 1 


6125 


031610 


AftftOft? 

0002 Or 


6126 






6127 






6128 


051612 




6129 






6130 






6131 






6152 


051612 


010046 


6153 


051614 


012500 



08-JUL-80 



000004 



08:24 PAGE 118 
SUBROUTINES 



N 9 



SEO 0117 



EOH: 



030412 
000002 



000004 



MESLO: 



001276 
050412 
000004 



001276 
050260 



IS: 



CLRIO: 



000200 000004 



CLR 
ROMCLK 
122110 
RTS PC 



4(R1) 



: CLEAR DATA CHAR 

.NEXT WORD IS INSTRUCTION, ROHCU PC=5504 

:L0AD GARBAGE CHARACTER 

.RETURN 



.THIS SUBROUTINE LOADS EOH AND OUT DATA WITH A 
;GARBAGE CHARACTER (2) TO ENABLE TRANSMISSION OF BCC 



JSR 

nov 

ROnCLK 
122111 
ROnCLK 
122110 
RTS 



PC.OUTRDX 
«2,4(R1} 



PC 



:WAIT FOR OUTRDY 
;P0RT4 2 

.-NEXT OORD IS INSTRUCTION, ROMCLK PC=5504 
;SET EOn 

.•NEXT yORD IS INSTRUCTION. ROHCLK PC=5304 

:LOAD GARBAGE CHARACTER 

.•RETURN 



.-THIS SUBROUTINE LOADS SILO WITH MESSAGE 

.-THE FIRST ARUGUriENT IS THE ADDRESS OF THE MESSAGE 

;THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE 



MOV 

MOV 

MOV 

JSR 

MOVB 

ROMCLK 

122110 

DEC 

BNE 

JSR 

MOV 

RTS 



RO.-(SP) 

(R5)*.R0 

(R5)*.»TMP0 

PC.OUTRDY 

(r6)^,4(R1) 



STHPO 
U 

PC.OCOR 

(SP)*.RO 

R5 



;SAVE RO 

:RO=MESSAGE POINTER 

;$TMPO=CHARACTER COUNT 

.-WAIT FOR OUT RDY 

.•LOAD P0RT4 yiTH CHARACTER 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

;LOAD OUT DATA SILO 

:DEC CHAR COUNT 

;BR IF NOT DONE 

:yAIT FOR OCOR 

.RESTORE RO 

.-RETURN 



;THIS SUBROUTINE SETS IN CLR AND OUT CLR TO 
.CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS 

MOV #BIT7.4(R1) ;LOAD P0RT4 

ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

122112 'SET IN CLR' 

ROMCLK InEXT word IS INSTRUCTION, ROMCLK PC=5504 

122111 ;SET OUT CLR! 

RTS PC .-RETURN 



STFFCL: 



:THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS 
i FIRST ARGUMENT IS CHAR. SECOND ARGUMENT IS SHIFT COUNT. 



MOV 
NOV 



RO.-ISP) 
(R5)»,R0 



:SAVE RO 

.PUT CHAR IN RO 



CZRCE HAtYll }0A(10S2) 0»-JUL-80 
CZlcfE.PII 08-JUL-80 08:24 



OB: 24 PA6€ 119 



B 10 




6U0 
6U1 
6U2 
6U3 
6U4 
6U5 
6H6 
6U7 
6U8 
6U9 
6150 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
6158 
6159 
6160 
6161 
6162 
6163 
6164 
6165 
6166 
6167 
6168 
6169 
6170 
6171 
6172 
6173 
6174 
6175 
6176 
6177 
6178 
6179 
6180 
6181 
6182 
0183 
6184 
6185 
6186 
6187 
6188 
6189 



031616 
051622 
"1624 

1632 
1654 
1640 
1646 
1650 
1654 
1660 
031664 
031666 
031670 



031672 



031672 
051674 
031676 
031702 
031704 
031706 
031712 
031714 
031720 
031726 
031730 
031734 
031740 
031744 
031746 
031750 
031754 
031/56 
031760 



031762 



031762 
031764 
031770 
031776 
032000 
032002 
032004 



012537 001502 

106000 

105403 

005037 052010 



000412 

m 



0010Q4 
005057 032010 
104415 000001 
005557 001502 
001556 
012600 
000205 



010046 
012500 
012537 
106000 
105403 
C'>5037 
000416 
005237 
022737 
001010 
005037 
104413 
004737 
103001 
104030 
005337 
001352 
012600 
000205 



032010 

000005 052010 



010046 
012700 
027777 
005500 
001573 
012600 
000207 



001502 



052010 

032010 
000005 

032010 
000001 
030226 



001302 



000032 
147250 







•mw 




ic> onon 


an 




C 9 


tL" 


Dl ■ CUM 




TC 


IMF 

C9' ill 


RiTf nil 


CHP 


«5,BITC0N 


BNE 


5S 


CLR 


BITCON 


OATACLK, 1 


3S: DEC 


$THP2 


BNE 


IS 


nov 


(SP)»,RO 


RTS 


R5 



STfFCK: 



032010 



It: 



2%: 



31: 



CTSDLV; 



147246 IS: 



;PUT SHIFT COUNT IN STHP2 
.-LOOK AT NEXT BIT 
'BR IF A flARK 

;IT WAS A SPACE. CLEAR 1*S COUNTER 
:C0NT1NUE 

.•INC CONSECUTIVE I'S COUNTER 
.IS IT 5 YET? 
'BR IF NO 

•YES! SO START AGAIN 

.'GIVE EXTRA TICK TO STUFF ZERO 

;OEC SHIFT COUNT 

.'BR IF NOT DONE 

;RESTORE RO 

.'RETURN 



;THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER 
:IS STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT 
;IS THE CHARACTER. SECOND ARGUMENT IS SHIFT COUNT. 



$TMP2 



MOV RO,-(SP) ;SAVE RO 

MOV (R5>*,R0 ;PUT CHAR IN RO 

MOV (R5)*,STMP2 ;PUT SHIFT COUNT IN 

R0R6 RO .'SHIFT OUT NEXT BIT 

BCS 2S :BR IF IT IS A MARK 

CLR BITCON ;IT WAS A SPACE. CLEAR I'S COUNTtR 

BR 5S .'CONTINUE 

INC BITCON ;INC CONSECUTIVE I'S COUNTER 

CMP #5, BITCON ;5 IN A ROW YET? 

BNE 5S :6R IF NO 

CLR BITCON ;YES, SO START OVER 

OATACLK, 1 .'EXTRA TICK TO STUFF 

JSR PC.GETSI ;LOOK AT WINDOW 

BCC 3S ;IS IT A ZERO, BR IF 

ERROR 30 ;N0. ERROR ZERO WAS 

DEC STHP2 ;OEC SHIFT COUNT 

BNE IS :6R IF NOT DONE 

MOV (SP)*,RO ;RESTORE RO 

RTS R5 ; RETURN 



.•THIS SUBROUTINE WASTES TIME UNTIL CTS SETS, 
.'BUT HOPEFULLY NOT SO LONG THAT THE SILO RUNS OUT 



ZERO 

YES 
NOT STUFFED 



MOV 
MOV 
CMP 
DEC 
BNE 
MOV 
RTS 



RO--(SP) 

f32.R0 

aSTKS.aSTKS 

RO 

IS 

(SP)»,RO 
PC 



032006 000176 



FLAG: -B<0ini110> 



'SAVE RO 

•LOAD RO WITH COUNT 
.'WASTE TIME 
.•DECREMENT COUNTER 
.'DO IT AGAIN IF NOT 
; RE STORE RO 
; RE TURN 



;FLA6 CHARACTER 



= 0 



CZKCt HACV11 30A(1032) 08-JUL-80 



CZKCF..P11 08- 


•JUL-80 


08:24 








000000 




252 


^<^ Q1 

0 1 T 1 


nx5fti 2 


000 


125 


0 1 TC 


0X201 S 


377 






D 1 T J 


0X2016 


001 


002 


004 


w 1 T"t 


0X2021 


010 


020 


040 






100 


200 


376 




C32027 


575 


373 


567 




0X20X2 


557 


357 


277 


6198 


032035 


177 






6199 


032036 


100 


4 i A 

140 


4 Z A 

160 


6200 


032041 


170 


003 


300 


6201 


032044 


174 


176 


177 


6?02 


0X2047 


001 




317 


^.20l 


032050 


563 


347 


6204 


032053 


200 


000 


377 


620S 


032056 


377 


377 


200 


6206 
6207 


032061 


037 






6208 

WC WW 


032062 


046200 


A/ 4 1 

047111 


AI Ai AC 

020105 


0X2120 


046200 


047111 


AO Ai AC 

020105 




032163 


t A A 

200 


044514 


A/ IC i A 

042516 




032227 


200 


044514 


A i O f 4 ^ 

042516 




032271 

Wbi> ' * 


200 


A f 4 4 O i 

051124 


Ai ^4 A4 

047101 




032521 


A A 

200 


042522 


A / C A 7 

042503 




032340 


051200 


A / 4 r A c 

041505 


Ai i CAC 

044505 




032365 




047515 






032365 

V ^b 


^ A A 

200 


Ai *)C A i 

042504 




032410 

V ^b~ ' w 


A f ^ ^ AA 

052200 


A / t C 4 A 

044510 


AlAi 

020123 




032471 


200 


AC ^ 4 

0525C1 


Ai "JC^l 

047524 




032550 


Af ^ ^ A A 

052200 


A/ AC ^ ^ 

C40522 


AC 1 C 1 ^ 

051 516 




032577 


200 


Ai ^C^^ 

042522 


Ai ^CAI 

042503 




032623 


"tAA 

200 


A/ 7i 1 4 

047111 


Ai 1 Ai A 

041040 




032663 


^AA 

200 


AC 4 4 

0511 24 


Ai 71 Ai 




032733 


•> AA 

200 


Ay AC AT 

040503 


Ai ^ 1 AI 

046102 




032754 


A^ V^AA 

045200 


Ai AC 4 7 

040514 


AlAi A7 

020107 




032770 

W ^b • • W 


052200 


040522 


051516 




033054 


051600 


044527 


041524 




035055 


'^AA 

200 


A/ A 1 Ai 


AC i i i "7 

051 117 




053072 


AC^ ^AA 


A/ AC 0*5 


ACi C i X. 

051510 




055115 


^ AA 

200 


i\i AC i A 

0405 1 0 


Ai 111^ 

0431 14 




055137 


AA 

200 


AC 1 T 

05251 r 


020124 




055162 


A J ^ ^ AA 

044600 


A^ A4 4 X 

020116 


042522 




035204 


A ^ A A 

042600 


ACA1 TA 

0501 SO 


Ai 1 CAC 

041 505 




055225 


^ AA 

200 


AC I 1 AC 

054105 


Ai OCOA 

042520 




055265 


200 


044105 


051101 




055521 


200 


047505 


051122 




055561 


^AA 

200 


AC i 1 AC 

054105 


A/ ^C OA 

042520 




055415 


200 


AC / 1 AC 

054105 


042520 




055461 






04 1 S 1 7 

\JH 13 11 




055504 


051200 


051524 


042C40 






055550 








055550 


000002 








035532 


005 


007 






033534 


001274 







08:24 PAGE 120 
SUBROUTINES 



C 10 



SEQ 0119 



BITCON: 
RESDAT: 

FLTOAT: 



.EVEN 

EMI : 

En2: 

EH5: 

EM4: 

EM5: 

EM6: 

EH7: 

EM10: 



EM11: 
Em2: 
EH13: 
EMU: 
EM15: 
EMI 6: 
EMI 7: 
EM20: 
EM21: 
EM22: 
EH23: 
E«24: 
EH25: 

OHi : 

DH2: 

0H3: 

DH4: 

DH5: 

DH6: 

DH7: 

DH10: 

.EVEN 

DTI: 



.BYTE 0.125.252.377 

.BYTE 1 .2.4.10.20.40.100.200.376.375.373.367.357.337,277.177 



STUFDT: .BYTE 100.140.160.170,3.300,174.176.177.1 



.BYTE 363,347,317.200,0,377.377.377,200,37 



.ASCIZ <200>/LlME UNIT INITALIZATION TEST/ 

.ASCIZ <200>*LINE UNIT REGISTER READ/ONLY TEST* 

.ASCIZ <200>*L1NE UNIT REGISTER WRITE/READ TEST* 

.ASCIZ <200>/LlNE UNIT INTERNAL CLOCK FAILURE/ 

.ASCIZ <200>/TRANS«lTTER DATA ERROR/ 

.ASCIZ <200>/RECEIVER TEST/ 

•ASCIZ <200>/RECEIVER DATA ERROR/ 

.ASCII <200>/HODEH SIGNAL ERROR/ 

.ASCII <200>/THIS ERROR COULD BE CAUSED IF YOU HAVE V.35 AND / 

.ASCIZ <200>/AUT0SIZED. IF V.35. MANUALLY ANSWER QUESTIONS/ 

.ASCIZ <200>/TRANS«ITTER CRC ERROR/ 

.ASCIZ <200>/RECEIVER CRC ERROR/ 

.ASCIZ <200>/IN BCC HATCH ERROR (LU REG 12)/ 

.ASCIZ <200>/TRANSHITTER FAILED TO GO TO MARK STATE/ 

.ASCIZ <200>/CABLE DATA TEST/ 

.ASCIZ <200>/FLAG ERROR/ 

.ASCIZ <200>/TRANSHlTTER FAILED TO STUFF A ZERO/ 

.ASCIZ <200>/SUITCH PAC TEST/ 

.ASCIZ <200>/ ABORT ERROR/ 

.ASCIZ <200>/TRANSHITTER ERROR/ 

.ASCIZ <200>/HALF DUPLEX TEST/ 

.ASCIZ <200>/0UT READY NOT SET/ 

.ASCIZ <200>/lH READY NOT SET/ 

.ASCIZ <200>/EXPECTED FOUND/ 

.ASCIZ <200>/EXPECTED FOUND LU-REGISTER/ 

.ASCIZ <200>/CHARACTER BIT THAT FAILED/ 

.ASCIZ <200>/C0RRECT CRC BIT THAT FAILED/ 

.ASCIZ <200>/EXPECTED FOUND SHIFT/ 

.ASCIZ <200>/EXPECTED FOUND CHARACTER SHIFT/ 

.ASCIZ <200>/BL0CIC END NOT SET/ 

.ASCIZ <200>/RTS DID NOT CLEAR/ 



2 

.BYTE 3.7 
$RE65 
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033536 003 

033540 001272 

033542 000003 

033544 003 

033546 001274 

033550 003 

033552 001272 

033554 003 

033556 001266 

033560 000002 

033562 003 

033564 001274 

033566 002 

033570 001270 

033572 000002 

033574 006 

033576 031230 

033600 002 

033602 001270 

033604 000003 

033606 001 

033610 001462 

033612 001 

033614 00)464 

033616 002 

033620 001262 

033o22 000003 

033624 001 

033626 001464 

033630 001 

033632 001462 

033634 002 

033636 001262 

033640 000004 

033642 001 

033644 001462 

033646 001 

033650 001464 

033652 003 

033654 001274 

033656 002 

033660 001270 

033662 000004 

033664 001 

033666 001464 

033670 001 

033672 001462 

035674 003 

035676 001274 

033700 002 

033702 001270 

033704 000002 

C33706 003 

033710 032006 

033712 002 

033714 001270 
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002 


0T2: 


• BYTE 
>Ktb*» 
3 


3.2 


UO' 




DVTF 
• DT I C 

SREG5 




010 




.BYTE 


3,10 


002 




.BYTE 


3,2 


D^3: 


2 




017 




.BYTE 


3,17 


002 


DT4: 


.BYTE 
2 


2,2 






RYTF 

CALBCC 




002 


fits • 


.BYTE 
1RFG3 

3 


2.2 


w 1 1 




RVTF 

ZERO 


1 11 
1,11 






RYTF 
ONE 


1 1 1 
1,11 


002 


DT6: 


.BYTE 
3 


2,2 


fti 1 

U 1 1 




RVTF 


1 11 






ONE 


01 1 

U I i 




BYTE 
ZERO 


1 11 


00? 


DT7: 


BYTE 
SREGO 
4 


2 2 


01 1 




BYTE 
ZERO 


1 11 


01 1 




BYTE 
ONE 


1 11 


0Q7 




BYTE 
1REG5 


3 7 


001 


OTIO: 


BYTE 
SREG3 
4 


2 1 


01 1 




BYTE 
ONE 


1 11 


01 1 




BYTE 


1,11 


007 




• BYTE 


3,7 




SRE65 




001 


Dili: 


.BYTE 
SRE63 
2 


2,1 


007 




.BYTE 


3,7 






FLAG 


2.2 


002 




.BYTE 




SRE63 
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CZKCE.PIl 08-JUL-80 08:24 SUBROUTINES 

033716 000002 0112: 2 
033720 006 004 .BYTE 
033722 031230 CALBCC 
033724 006 002 .BYTE 
033726 001302 STHP2 



033730 CORMAX: 
000001 .END 



E 10 



SEQ 0121 



CZKCE MACm 30a{10S2) 08-jUL 
CZKCE.PII 08-JUL-80 08:24 



ABASE = 

ACOWl = 

AL0U2 - 

ACPUOP* 

AODWO - 

A0DW1 ' 

AOOUlOs 

AD0W11' 

ADDU12* 

ADDW13* 

AD0W14* 

A0DU15> 

ADDW2 * 

A0DU3 s 

A0DU4 B 

AODUS « 

ADDW6 > 

A0DU7 « 

ADDW8 « 

ADDW9 « 

ADEVCT* 

ADEVM « 

ADftCNT 

ADVANC* 

AENV ■ 

AENVM » 

AFATAL> 

AMADR1* 

AMADR2* 

AMADftS* 

AMADft4* 

AMAMS1* 

AMAMS2* 

AMAMS3" 

AMAMS4* 

AMSGAD- 

AMSGL6* 

AMSGTV- 

A«nP1« 

AHTYP2. 

A«TYP3« 

AMTYP4* 

APASS > 

APRIOR* 

APKSU» 

APTENV* 

APTS12* 

APTSPO* 

APT. SI 

ASWtEG* 

ATESTN* 

AUOONE 

AUNIT * 

AUSTRT 

AUStfft « 

AUTO.S 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooc 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
006057 
104420 
000002 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000040 
000001 
000200 
000100 
013716 
000000 
000000 
0053S4 
OOQOOO 
003126 



012236 



951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 
2098* 
2267* 
1« 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 

951 
1823 
1816 
1925* 
1818 
1491 

951 

951 
1528 

951 
1527# 

951 
1489 



2122* 

5777 
962 
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992 

994 

995 

966 

996 

997 
1006 
1007 
1008 
1009 
1010 
1011 

998 

999 
1000 
1001 
1002 
1003 
1004 
1005 

957 

993 
2113* 
5694 

951 

963 

954 

979 

983 

986 

989 

973 

981 

984 

987 

959 

960 

953 

974 

982 

985 

988 

956 

1928* 
1884 

1886 
2927* 
964 
955 
1549 
958 

965 
2646* 
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USER SYMBOLS 



SEO 0122 



1926* 2328 
1927* 

1588* 



CZKCE 


HACvn 


50A(1052) 08-JUL-80 08:24 PAGE 


125 




C2ICCE.P11 08 


III* AA AS 




CROSS REFERENCE 




Aveciu 


000000 


▼> 1 


yy*} 








AVtCT2. 


000000 


▼51 


TT 1 








BASE 


0U134 




4T"»T 


2965* 


2973# 


4539 


BCCLD 


031232 




1 •» 


4462 


4491 


BINWRD 


006412 


t 1 f 0* 


51 7X« 


2174 


2211* 




BITCON 


052010 




0 1 Jf • 


6139« 


6140 


b142* 


BITO « 


000001 


01 




2436 






SITOO « 


000001 




0 1 "» 








BlTOl * 


000002 


BUS* 










61T02 « 


000004 


Owe* 


ill 7 








Bno3 « 


0C0010 


on 1 * 


m 1 

O 1 1 








B1T04. « 


000020 




0 1 u 








BITOJ « 


000040 


700» 
ryym 


OWT 








61T06 ' 


000100 


f TO" 


ouo 








BIT07 « 


000200 


fyfm 


our 








61T08 « 


000400 


f tO" 


OwO 








BIT09 « 


001000 


IT?* 


OVJ 








BIT1 « 


000002 


0 1 


1 ••TO 


2429 


2435 


2436 


BITIO « 


002000 


7QLM 


97RO 
c f oy 








BIT11 « 


004000 


70 Tit 


1 1 jy 


3381 


3415 


3460 


TRAP 


jy 1 


3964 


4003 


4042 








L7^X 
H f jj 


4826 


4925 


4991 


BIT12 e 


010000 


f Tt» 


?75ft 
c r cu 


2806 






BIT13 » 


020000 




57?? 
Ci CJ 


2735 


2792 


2810 


BITU « 


040000 


7onir 


1 7A1 


2754 


2759 


2810 


B1T15 » 


100000 




1 AXA 

1 jO 








BIT2 = 


000004 


0 1 c* 


1 •♦TO 


1637 


2436 


2745 


BIT3 « 


QOOOlO 


R1 lit 
all' 


cO 1 c 


2819 


4293 




BITA = 


000020 


Ain« 


7L^ 0 

£•♦ 1 T 


2442 


2444 


3496 






J 7WW 










BITS = 


000040 


OUT* 


C TC* 


3078 


3438 


3550 


BIT6 > 


000100 


OvO* 




2425 


2814 


3831 


BIT7 = 


000200 


Owl • 




2544 


2924 


3468 


BITS ' 


000400 


ouo* 




2803 


2816 


2818 


BIT9 « 


001000 


Ow3* 


C 1 TO 


2824 


2827 


2882 


BH 


010757 


CHOf * 










BPTV£C« 


000014 


Ot ' * 










BftLVL 


013650 


cO f T 


COOT 


2897 


2910* 




BRW 


004360 


1 A^? 
1 OHC 


1 77&# 






4558 


CALBCC 


051230 




•♦•• J J 


4481 


4510 






5071 


5092 


5168 


5211 






7 f Cw 


S774 


5976* 


5977 


5979* 


CHAR 


030444 


T91 S 

JT 1 J 


JTU J 


4004 


4043 


4082 


CHAftSD 


050556 


50l T* 








2209* 


CHRCNT 


006410 


c 1 OO ' 


?1 71 


2175 


2191* 


CKSWft 


011540 


1 HO f 


1 7R? 

1 > Ot 


2274 


2492# 




CKSWRI 


011414 


C 3w*»* 


C 7 1 0 








CKSUR2 


011426 


cJVf * 










CKSWR3 


011432 


C JWT* 




2525 






CKSWR4 


011436 


2510f 


2518 






CKSWRS 


011542 


2495 


2495 


2499 


2534* 




CLKX 


001452 


1026# 








4534 


CLRIO 


051572 


4380 


4409 


4457 


4486 


CNERR 


011155 


1561 


2467# 




1437 


1439 


CNT.NA 


002502 


1040 


1513# 


1435 


CNVRT * 


104417 


1558 


1667 


1669 


1671 


1675 
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USER SYMBOLS SEO 01 



4568 


4616 


4645 


6001# 










6160* 


6162* 


6163 


6165- 


6190* 








2808 
















3519 
4081 
5240 


3572 
4123 
5513 


3625 
4208 
5578 


3678 
4325 
5620 


3732 
4379 
5716 


3792 
4456 


3822 
4535 


3852 
4610 


3075 
2821 


4254 
4256 


4268 
4323 


4291 
5618 


4321 
5714 


4350 






2755 


4272 


4294 


4345 










3923 


3973 


4012 


4051 


4090 


S579 


5802 


5844 


3603 
3891 

2824 
2884 


3656 


3709 


4167 


5530 








i 07n 
2827 


«i2f 5 

2884 


Hcyt 


LtLA 
H>*»0 


*» J Jjl 


0 1 c\i 




4587 
5270 
5985 
4209 


4635 
5291 
5986« 
5852* 


4664 

5340 
5987* 


4722 
5361 
5990 


4790 
5437 
5995* 


4851 
5491 
6208 


4872 
5632 


5020 
5688 


2210 
















4563 


4611 


4640 


6116* 










2572 
2266* 


2309 


2311 


2586 


2507 
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CONERR 


011110 


1556 


2467« 












CO*IN 


011017 


2467« 


2725 












CONtAS 


003530 


1565 


1575f 




2325 








CONVRTs 


104416 


1508 


1564 


2265» 


2668 






CORHAX 


033730 


6208' 














CR = 


000015 


729f 


1862 


1872 










CRC.CC* 


102010 


5998« 












4613 


CRC16 * 


T 20001 


4382 


44i1 


4459 


4488 


4536 


4565 






5264 


5334 


5623 


5719 


5997# 






CREAM 


001502 


1039f 


1434* 


2568* 


2569 


2571* 


2575 




CRLF « 


000200 


730# 


1833 


1872 










CSR 


010364 


2467# 


2672 












CSRHAP 


012240 


2648# 














CTSOLY 


031762 


6176# 














CtCLE 


011606 


1643 


1704 


2559# 










DAT ASP 


006764 


2298* 


2301 


2323 


23260 






3547 


DATACL- 


104413 


22621 


3422 


3467 


3471 


3532 


3533 




3691 


3692 


3706 


3750 


3753 


3796 


3826 






4084 


4125 


4126 


4171 


4172 


4211 


4387 






4494 


4541 


4542 


4570 


4571 


4618 


4619 






4838 


4852 


4873 


4891 


4898 


4900 


4935 






5118 


5120 


5131 


5257 


5271 


5292 


5312 






5522 


5527 


5533 


5588 


6143 


6166 




DATAHO 


006752 


2297* 


2319 


2322# 










DDISP = 


177570 


736# 


892# 


921 










DELAY = 


104411 


2260# 


1578# 












DEVTAB 


003342 


1531 












DHl 


033204 


1089 


1092 


1095 


1131 


1137 


1143 


1170 


DH10 


033504 


1152 


6208* 












DH2 


033225 


1071 


1074 


1077 


1083 


1155 


1164 


6208ir 


DH3 


033263 


1086 


1134 


1149 


6208f 








DH4 


033321 


1104 


6208# 












DH5 


033361 


1098 


1101 


1110 


1113 


1167 


62081 




DH6 


033413 


1116 


1119 


1122 


1125 


6208# 






DH7 


033461 


1146 


6208# 












DISPLA 


001242 


921# 


1453* 


1459* 


1771* 








DISPRE 


0001 74 


882« 


1459 












DSUR = 


1 77570 


735# 


891 « 


920 








6208# 


DTI 


033530 


1090 


1093 


1096 


1132 


1144 


1171 


DT10 


033662 


1120 


1126 


6208« 










DT11 


033704 


1135 


6208# 












DT12 


033716 


1138 


6208f 








1165 


6208# 


0T2 


033542 


1072 


1075 


1078 


1084 


1156 


0T3 


033560 


1087 


1150 


6208# 










DT4 


033572 


1105 


62081 












DT5 


033604 


1099 


1102 


1168 


6208« 








DT6 


033622 


1111 


1114 


6208# 










DT7 


0356AO 


1117 


1123 


6208» 










D2DK s 


000000 


1067 














D2DPIG - 


••tt** y 


1067 


1172 












MTVEf» 


000030 


824# 














EBI 


032062 


1070 


6208« 












Emo 


032365 


1094 


6208« 






1118 


62081 




EMU 


032550 


1097 


1103 


1109 


1115 




EH .2 


032577 


1100 


1112 


1121 


1124 


1136 


6208f 




EM15 


032623 


1106 


1169 


6208« 











SEO 01 



4642 


4690 


4758 


4845 


5014 


5065 


3585 


3586 


3600 


3638 


3639 


3653 


3856 


3886 


3917 


3967 


4006 


4045 


4388 


4416 


4417 


4464 


4465 


4493 


4647 


4648 


4704 


4706 


4772 


A774 


5007 


5021 


5042 


5072 


5093 


5111 


5341 


5362 


5380 


5387 


5389 


5400 



6208# 
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USER SVHBOLS 



SEO 0125 



E>»16 

ln^7 

in2 

£«20 

E«21 

EM22 

inzi 

£«24 

E«25 

E«3 

EM 

EM6 
E«7 

eoM 

ERCTOO 
ERCT01 
ERCT02 
ERCT05 
ERCT04 
ERCT05 
ERCT06 
CRCT07 
ERCT10 
ERCT11 
ERCT12 
ERCT13 
ERCT14 
ERCT15 
ERCT16 
ERCT17 
ERR 

ERRMSG 

ERRK 

ERRVEC* 

ERTABO 

EXIT « 

EXITER 

FLAG 

FLOAT 

FLTOAT 

FY 

6ETQI 
CETOO 
GETS I 



0S2663 
032733 
032754 
032770 
032120 
035034 
033055 
033072 
033115 
033137 
033162 
032163 
032227 
032271 
032321 
032540 
031504 
002304 
002510 
002314 
002320 
002324 
002330 
002534 
002540 
002544 
002550 

mi 

002564 
002570 
002574 
002400 
005244 
006740 
003522 
000004 
007112 
000205 
007046 
052006 
005156 
052016 
005202 
051556 
031544 
050226 



GNS « u 



MALTS 
HiLin 
MT 

INCHAR 



006770 
006052 
000011 
011546 



1127 

1150 

1155 

1159 

1075 

1142 

1145 

1151 

1154 

1157 

1160 

1076 

1079 

1082 

1088 

1091 

4855 

1515# 

1518* 

1521* 

1524* 

1527* 

1530* 

1355* 

1556* 

1559* 

1542* 

1545* 

1548* 

1551* 

1354* 

1357* 

1360* 

1540 

2296* 

1559 

817* 
2311 

844* 
2337 
6189* 
1535* 
5626 
1541* 
4424 
4595 
3556 
4880 
5274 
6167 
2250 
2265 
2281 
2095* 

727* 
2510 



6208* 

6208* 

6208* 

6208* 

6208* 

6208* 

1148 

6208* 

6208* 

6208* 

6208* 

6208* 

6208* 

1085 

1165 

6208* 

4933 



1553* 

2514 

1570* 

1746 

2551* 

2342* 

6208 

1539 

5636 

1545 

4428 

4399 

3540 

4892 

5278 

2253 

2266 

2328* 

2103 

1851 

2538* 



6208* 



1166 
6208* 

5000 



1557 
2317* 



2267 

2119* 
1872 



6208* 

5004 



5249 5254 



5638 



5642 



5646 



5734 



6084* 



1747* 


1749* 


1752* 






5640 


S644 


5651 


5691 


6193* 


1550 








4655 


4501 


4505 


4578 


4582 


4472 


4476 


4549 


4553 


4626 


3589 


3593 


3642 


3646 


3695 


4901 


5024 


5028 


5045 


5049 


5295 


5299 


5315 


5319 


5344 


2254 


2255 


2256 


2257 


2258 



4659 


4780 


4784 


6039* 


4630 


4712 


4716 


6029* 


3699 


3756 


3760 


4855 


5075 


5079 


5096 


5100 


5348 


5365 


5369 


5581 


2259 


2260 


2261 


2262 



4859 
5112 
5390 



4876 
5121 
5785* 

2264 
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TABLE ~ USER SYMBOLS 



SEO 0126 



IMIFLO 001506 

1MLP1 00S766 

INPUT = 104415 

INROV 031066 



INTTV 

lOTVEC* 

ICMACTV 

KHCH 

K«CROO 
KMCR01 
ICMCR02 
r.HCR03 
KMCR04 
IC«CR05 
KMCR06 
ICHCR07 
ICMCR10 

rncRli 
K«CP12 
KHCR13 
KMCR14 
ICHCR15 
ICHCR16 
KMCR17 

icncsR 

KMCSRH 
rWCTL 

KNP04 

KMP06 

KMRLVL 

KMRVEC 

KMS100 

RMS101 

KnS102 

KHS103 

KHSIOA 

KHSIOS 

KHS106 

IIMS107 

ICKS110 

KHS111 

IC«S112 

KnS113 

KHSIU 

KMSIlS 

Knsii6 
Km 7 

kMj200 
XMS201 
KMS202 
KMS203 



013664 
000020 
001470 

011176 

002100 
002110 
002120 
002130 
002140 
002150 
002160 
0';:i70 
002200 
002210 
002220 
002230 
002240 
002250 
002260 
002270 
002066 
002070 
002072 
001472 
002074 

002076 
002060 
002056 
002102 
002112 
002122 
002132 
002142 
002152 
002162 
002172 
002202 
002212 
002222 
002232 
002242 
002252 
002262 
002272 
002104 
002114 
002124 
002134 



1044« 
2100* 
2264* 
4127 
5196 
5673 
2689 
822« 
1033* 
2942 
1567 
1?28* 
V3V 

i:38# 

1243* 
1248* 
1253* 
1258* 
1263* 
1268* 
1273* 
1278* 
1283* 
1288* 
1293* 
1298* 
1303* 
1211* 
1212* 
1213* 
1034* 
1214* 
6045* 
1215* 
1208* 
1207* 
1229* 
1234* 
1239* 
1244* 
1249* 
1254* 
1259* 
1264* 
1269* 
1274* 
1279* 
1284* 
1289* 
1294* 
1299* 
1304* 
1230* 
1235* 
1240* 
1245* 



1462 


1492 


1499* 








2109 












2608 


2659 


2671 


2679 


2761 


2769 


417'? 


4?12 


4220 


4228 


4936 


4949 


5403 


5417 


5422 


5443 


5457 


5471 


5739 


5754 


5759 


5948* 






2710 


2726 


2741 


2918* 






1476 


1601* 


1602 


2559 


2573 


2654 


2467* 













4954 
5476 



5134 
5534 



5148 
5544 



5153 
5552 



5177 
5652 



2839* 2845* 2846* 2850 2875 



5191 
5668 



2941* 



1527* 


1542 


1548* 


1577 


1707 


1774 


2389 


2443 


2424* 


2425* 


2429* 


2435* 


2436* 


2442* 


2444* 


2586* 


2588* 


2589* 


2590 








2840 


2842 


1430 


1684 


2652* 


2666* 


2831* 


2832 


2413* 


2419 


2456 


2461 


2590* 


2591* 


2592 


5789 


6046* 
















2430* 


2592* 


2593* 












1677 


1678* 


2595* 


2596* 


2597 








1677* 


1710 


2578* 


2579* 


2595 









2577* 
2587* 



5802 



2586 
2588 



5844 



2634 2991* 
5960 6035* 
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< 10 
USER SVnBOLS 



SEQ 0127 



ic«S204 
K«S205 
Kns206 
KPIS207 
KMS210 
KMSfll 
icns2i2 
ICPIS213 

Kns2i4 

ICHS215 
Kn$216 
KnS217 

Kns300 
Kns30i 

KnS302 
KHS303 
KMS304 
KWS305 
Kns306 
KHS307 
KHS310 
KHSSI 1 
Kns312 
K«S313 
KnS314 
KnS315 
KnS316 
ICHS317 
K»^TLVL 
KHTVEC 
KM. END 
KM. MAP 
LF 

LINE 

LOBITS 

LOCK 

LOKFLG 

LOLIH 

LRC8 - 

LUTtPE« 

MASKX 

MASTEK 

nCSRX 

MOATA 

KNLIM 

MCPASS 

KRRPC 

MERRX 

MeRR2 

HCRR3 

MESDAT 



002144 
002154 
002164 
002174 
002204 
002214 
002224 
002234 
002244 
002254 
002264 
002274 
002106 
002116 
002126 
002136 
002146 
002156 
002166 
002176 
002206 
002216 
002226 
002236 
002246 
002256 
002266 
002276 
002064 
002062 
002300 
002100 
000012 
010721 
006056 
001444 

001510 
006050 
000200 
•*«««t u 

001454 
010016 
007746 
011276 
001466 
007620 
010073 
007773 
007646 
007673 
032012 



MfSLD 031530 
MILK 001504 



1250# 
1255# 
1260« 
1265/r 
12701 
1275# 
1280# 
1285# 
1290# 
1295# 
13001 
13051 
1231# 
1236# 
1241# 
1246# 
1251# 
1256# 
1261* 
1266f 
1271* 
1276* 
1281# 
1286« 
1291* 
1296# 
1301* 
1306* 
1210* 
1209* 
1308* 
1039 

728* 
2467* 
2097* 
1020* 
3262* 
1046* 
2094* 
5996* 

686 
1027* 
2307 
1666 
2189 
1032* 
1665 
2310 
1672 
2467* 
1598 
4334 
5252 
4333 
5731 
1040* 



1679 

1679* 

2650 

1227* 

1866 

2762 

2121* 

1773* 

4376* 

2105 

5968 

2467* 

2467* 

2199 

1625* 

2467* 

2467* 

2467* 

2852 

2467* 

4827 

5327 

4832 

6097* 

1435* 



1680* 

2597* 

2946 

1434 

1872 



1785 
4408* 

2118* 



2484* 



2599* 
2598* 

1501 



2600* 
2599 

1511 



2569 2571 2648 2653 



2867 



2944 2948 



1787 2128* 
4453* 4485* 



2305 
4530* 



3097* 
4562* 



3113* 
4607* 



3140* 
4639* 



3156* 3183* 3206* 3242* 



4833 
5402 
4930 


4926 
5456 
4997 


4931 
5514 
5001 


4992 
5519 
5246 


4998 
5524 
5251 


5002 
5585 
5518 


5058 
5722 
5523 


5133 
5732 
5584 


1674 


2567* 


2572* 


2576 











5176 
5738 
5635 



5241 

6191* 

5639 



5247 
5643 
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L 10 
USER SYMBOLS 



SEQ 0128 



HNEW 

npAssx 

MPAIL 
MR 

hre:ct= 

USTCL?* 



MTITLE 

MTSTN 

HVECX 

«V35 

NEXT 



NITCH 
NOACT 
NODEV 

mm 

OCOR 

OK 
ONE 

OUTRDV 



PACTOO 
PACT01 
PACT02 
PACT03 
PACT04 
PACT05 
PACT06 
PACT07 
PAITIO 
PACT11 
PACTU 
PACTIS 
PACTU 
PACnS 
PACT16 
PACT17 
PARBITi 

PFTAa 
PIM • 
PIMVCi 
POWM) • 
POPlSPi 
P0P2SP« 

mo 

PRIRTY 



00'717 
010020 
010462 
007762 
007562 
007643 
004000 
104410 



001000 
010004 
007754 
010574 
001442 



030256 
011057 
003240 
010324 
030260 

003220 
001464 
030412 



002302 
002306 
002312 
002316 
002322 
002326 
002332 
002336 
002342 
002346 
0023S2 
002356 
002362 
002366 
1372 
W76 



000240 

022626 
010423 
0U136 



1639 
1593 
2467# 
1670 
2385 
1646 
8441 
2259# 
3459 
4040 
4822 
890« 
2308 
1668 
2467* 
1019# 
3342* 
391 0« 
4606* 
5789* 
1478 
1529 
2467/r 
3421 
5521 
1543 
1031* 
3520 
4929 
5917 
1314* 
1317* 
1320* 
1323* 
1326* 
1329* 
1332* 
l33Sf 
1338* 
1341* 
1344* 
1347* 
1350* 
1353* 
1356* 
1359* 
844* 
844* 
2386 
734* 
828* 
839* 
837* 
841* 
2467* 
2934* 



2467* 

2467* 

2709 

2467* 

2402 

2467* 

2391 

3518 

4079 

4924 

1466 

2467* 

2467* 

2740 

2127 

3378* 

3960* 

4662* 

5790* 

2467* 

1551* 

2660 

3466 

5526 

1546* 

6208 

3525 

4996 

6012 



2408* 
2341 



2688 
2940* 



2467* 






















2624 






















3042 


3068 


3099 


3142 


3185 


3244 


3296 


3320 


3344 


3380 


3414 


3571 


3624 


3677 


3731 


3791 


3821 


3851 


3881 


3912 


3962 


4001 


4118 


4161 


4207 


4253 


4320 


4378 


4455 


4532 


4609 


4684 


4752 


4987 


5236 


5512 


5576 


5617 


5713 












2609 























2347 


2989* 


3015* 


3040* 


3066* 


3096* 


3139* 


3182* 


3<?41* 


3294* 


3318* 


3412* 


3457* 


3516* 


3569* 


3622* 


3675* 


3729* 


3789* 


3819* 


3849* 


3879* 


3999* 


4038* 


4077* 


4116* 


4159* 


4205* 


4251* 


4318* 


4375* 


4452* 


4529* 


4750* 


4820* 


4922* 


4985* 


5234* 


5510* 


5574* 


5615* 


5711* 






5791* 


5792* 


5794* 


















2561 






















3529 


3582 


3635 


3688 


3749 


4703 


4771 


4836 


4934 


5005 


5255 


5587 


5647 


5735 


5797* 


5803 


5833 


5875 


5891 


5932 


6025 


6111 


1569 






















3573 


3578 


3626 


3631 


3679 


3684 


3736 


3740 


3745 


3768 


4831 


5245 


5517 


5583 


5817 


5826 


5837* 


5862 


5871 


S884 


5888 


5908 


6021 


6058 


6074 


6088 


6105 















2953 2974* 
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AAA _ 

PRO = 


A AAA A A 

000000 


r 51* 


2910 


291 1 






PRl = 


A AAA/ A 

000040 


7C^4l 










OA O _ 

PR^ = 


000100 


f 55* 










PR 3 » 


AAAi t A 

000140 


7C/ « 










DO/ « 


OOOfwO 




501 5 

cVl C 








Db C V 




f 30# 


501 7 

cVl 3 








rKo * 


AAATAA 
UUU3U0 




501 L 

cyi *• 








DA 7 V 

rRr » 


AAAI/. A 




003 


003 


a&7 
00' 


007 


DC m 


1 7777A 


7T1 il 


775 


1 A57* 


1030* 


COf 7* 


raw » 


1 7777A 

1 f f f f 0 


IXiM 
I 3CK 












A1 AA£iL 




5771) 








DIICU1 Cs 


UU3 f HO 


0 jO* 










Dl ICUSCc 




AAAJf 










DUDuc r m 
rWKVtt* 


A AAA 9/. 


Oc J* 


57AA* 
c30h" 


C303« 


577A* 
C3f ■ 


C jOU* 


f\\i t 1 /I 


AA1 C1 1 


1 Uh f w 


1 A77* 


1 AR7* 
I 003" 






ROCHH * 


1 A/. / AO 


1 OBA 

1 "roU 


55C7« 










1 t\LL{\X 


cU? J 










onnr r - 




51 A5 
c I Uc 


55^^* 
CC55* 








DC COC/1 
NCsKtU 


AAA7AA 




5757* 








OC cue 


AAAAI A 


010* 














£C70M 


3757 










1 f\LL 1 5 


CCOl 


'>L^L 

CH 1 H 


5A 1 7 
CH 1 ' 


3A «;a 

CH 3h 


5ACO 
CH37 






3 1 H J 


71 A7 


71 ^ft 

3 1 30 


71 AA 
3 1 OU 


71 Ol 

3 17 1 






7151 

JJCl 


77A7 
33h/ 


77^A 
3330 


77ft7 

3303 


77R^ 
3303 






XL7X 


7An7 


7AQ7 

3H73 


7^55 
33cc 


7^37 
33c f 






jOOO 


77A7 
3 f Uf 


7778 

3 1 30 


77A5 
3f He 


77A7 

3 f H / 






70A0 


7070 


hUUO 


AA1 7 
hU I > 


HUH f 






A55Q 


A5AA 


L'>kX 
'»c03 


HC03 


HCOO 






H f O J 


H f 07 


H 1 77 


H7 J f 


H73U 








^3nA 




ft 

3H 1 O 


3HC J 








J J J J 


J jO\J 


JJOr 


3D J J 






3 OUU 


30 1 3 


^R1Q 

30 1 7 


Sft7P 

30CC 


SR?R 

30C0 






3TUO 


^01 n 

37 1 U 


^01 7 

37 1 J 


37 17 


5939 






0U30 


OUOU 


t\t\(\X 
0U03 


our O 


OUi T 


Dl Ikl 


AA1 CAA 
W 1 J\J\1 


1077* 
1 Ujf # 


1 H jO* 


3^A^* 
C303" 


C300' 


C Jr 3 


C AUAT T 
SAVAt 1 


t\MLTL 
Uw 1 *• f 


in7<tir 

1 Uj3# 


1 370 


5R^n* 

C03U" 


C7HC* 




C AV/kU III 


AA1 A7A 
UU 1 *• f 0 


1 U jO# 


1 H JU* 


1 OO 1 


1 OOH" 


9ft47* 
COH J» 


SAVPC 


AA1 /^A 
wU l*lOU 


1 090* 

1 UC T# 


1 33 > * 


1 3 r c 


b i 3H 


37S^ 

C 33 J 


CAUCP 


W 1 H^O 


in9ft* 
















ccoo 






59? 3 




w J 1 UOC 


1 1 7 ■ 


■1 1 uc 


SOOO 

37vw 




crnpi s 

)LUr 1 - 


1 vtHU? 


cc30* 


^11? 

3 11c 


JtCJ 










"♦JO 1 


37U 


•♦O JO 


HWOf 




(limn 


V jUOcc 


1 11 


1 Hw 


4170 


41 RA 

H 1 OO 


5895f 


c iinr r 


nT1 1 35 
U J 1 1 cc 


JTU 


1 T 




HHtO 


cut 

•t 3HH 




5 c 00 


^77A 
3330 


30c0 


3r CH 


3tOO* 


aUr 1 911 


A1 1 AAA 
U 1 1 OUU 


c5U0 


C3'»r W 










AT1ZC/ 


C5sn 


OU' U* 








SPACNTs 


006411 


2169* 


2193 


2196* 


?210# 




STACK « 


001200 


722# 


1428 


1615 


2348 




STAT 


001450 


1025# 








4256 


STAT1 


002050 


1200# 


2580* 


3075 


4254 


STAT2 


002052 


1201f 


2581* 


3300 


3324 




STATS 


002054 


1202f 


2582* 


4272 


4294 


4345 


STFFCK 


031672 


6150# 










STFFCL 


031612 


5924 


6128# 









n 10 

USER SYMBOLS SEO 01 



2915 
2889* 



2399* 2400* 



2993 


3018 


3044 


3070 


3102 


3104 


3115 


3117 


3193 


3212 


3214 


3249 


3251 


3267 


3269 


3297 


3389 


3417 


3419 


3424 


3434 


3462 


3464 


3469 


3548 


3575 


3580 


3601 


3628 


3633 


3654 


368* 


3770 


3797 


3827 


3857 


3887 


3919 


3929 


3931 


4056 


4086 


4095 


4128 


4168 


4174 


4213 


4221 


4327 


4331 


4339 


4693 


4697 


4701 


4731 


4761 


4955 


4964 


5135 


5149 


5154 


5163 


5178 


5192 


5432 


5444 


5458 


5472 


5477 


5486 


5528 


5535 


5669 


5674 


5683 


5740 


5755 


5760 


5769 


5787 


5831 


5842 


5860 


5864 


5867 


5873 


5886 


5889 


5941 


5958 


6010 


6014 


6017 


6023 


6033 


6043 


6090 


6092 


6107 


6121 


6123 








2936* 
















5927* 


5928 


5934* 


5944# 








4513 


3202 


3223 


3258 


3276 


4407 


4436 


4484 


4573 


4621 


4650 


4707 


4775 


4847 


5016 


5067 


4268 


4291 


4321 


4323 


4350 


5618 


5714 





N 10 



CZKCt 


HACtll 


30A(1052) 08-JUL 


-80 08:24 PAGE 


132 






CZKCt.PII 08 


•JUL-SO 08:24 




CROSS REFERENCE 


TABLE — 


USER SVWOLS 


STKlMTs 


177774 


733f 












STRTSW 


001446 


10241 


1468* 


1471* 


1472 


1474 


1488* 1494 1496 1591 1637 


2655 


2863 










STUFOT 


032056 


6199f 






C ASC A 

5935* 


5945* 




STUFL6 


031064 


4120* 


4163* 


5921 




SV05 


0061 00 


2138# 












SWf LG 


011544 


1431* 


2503* 


1C TA^ 

2530* 


2536* 




1596 1601 1741 1759 1783 


SWR 


AA1 ^/ A 

001240 


920# 


1452* 


1 / c/ 
1454 


1450* 


1468 


2343 


2345 


Z3f 2 




2432 


2492 2529* 


SUfttG 


AAA4 7X 

000176 


883# 


1447* 


i / CO 

1458 


"5/ 0^ 

24V2 


2549 




SWO * 


AAAAA4 

000001 


786# 












syoo « 


AAAAA4 

000001 


776# 


786 


4 / 70 

"4f 2 


i / 00 

14BB 


2655 


2863 


syoi * 


000002 


775# 


785 


164* 


c60£ 


2625 




SU02 " 


000004 


774# 


784 










SW03 « 


A AAA 4 A 

000010 


773# 


783 


1 371 








swo* » 


000020 


772# 


782 










SW05 « 


AAAA/ A 

000040 


771# 


781 










SUOo = 


AAA1 A A 
0001 00 


770f 


780 


c'tic 








SWOf » 


AAA^AA 
000200 


769# 


779 










SWOB * 


AAA/ AA 

000400 


768# 


778 


■51/. T 








^ k lA A • 


AAi AAA 

001000 


76 7# 


777 


1 r o3 








SWT " 


AAA A A 'I 

000002 


7851 












SU10 » 


AA')AAA 

002000 


766# 


2345 










SWl 1 * 


AA/ AAA 

004000 


76 5# 












SW1Z « 


A \ AAAA 

010000 


764« 


2275 










SWT 3 = 


A^AAAA 

020000 


763# 


2280 










nil/ ^ 


A/ AAAA 

040000 


762« 












SWl 5 s 


« AAAAA 

1 00000 


761 # 












SU2 = 


AAAAA/ 

000004 


784# 












cut - 


AAAAi A 
000010 


783# 












SWA = 


AAAA OA 

000020 


782* 












SW5 s 


000040 


781* 












5wO = 


A AAI AA 
0001 00 


780* 














AAA 9 Aft 

OOO^UU 


779* 














AAA/ AA 
000*tUO 


778* 












bWT = 


00 1 000 


777* 












c vyr 


ftTft57<l 


3794 


3824 


JO J*» 




5807* 


5244 5516 5582 5621 5622 


StNLD 


ATI XTL 

031 3fH 


4691 


4759 


H03\l 


/.Q7il 


4995 


TBI TVc» 


AAAA 4 / 

00001 H 


819* 










2482* 3345* 3351* 3354* 3360* 


Ttnr 


01 lc34 


2176 


2440* 


CHS J " 


c"»5 1 " 


2463* 


T t MCA » 


1 A// 1 / 


2263* 


3387 


JT 1 0 


7Q/>A 


4007 


4046 4085 4262 4285 4329 


T V IJC r w 

TKVCC » 


AAAAAft 

OOOOoO 


826* 












T 1 ACT 

TLA5T s 


yji 1 (Mb 


2628 


5778* 










TrVcC * 


000064 


827* 












TRAPVc« 


AAAAt/ 

000034 


825* 












TRi VEC* 


AAAA 1 L 

000014 


820* 












re Ti 

TSTi 


014140 


1735 


2615 


CO 3 J 












3182 


3239* 










TST11 


015312 


3241 


3292* 










TST12 


015354 


3294 


3316* 










TST15 


015416 


3318 


3340* 










TSTU 


015516 


3342 


3376* 










TST15 


015616 


3378 


3410* 










TST16 


015754 


3412 


3455* 










TSTU 


016152 


3457 


3514* 










TST2 


014214 


2989 


3013* 











1644 



2275 



SEQ 0130 
2602 2625* 

2280 2336 



5717 



5718 6050* 



C/KCE hactm 3Oa<10S2) 08-JUI-80 
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08:24 PA« ^33 

cuoss nnnna table 



S 11 



SEQ 0131 



10 



55 



TST 
TST 
1ST 
TST 
TST 
TST 
TST26 
TST27 
TST3 
TST30 
TST31 
TST32 
TST33 
TST34 
TST35 
TST36 
TST37 
TST4 
TST40 
TST41 
T5TA2 
TST45 
TST4A 
TST45 
IST46 
TST47 
TST5 
TST50 
rSTSI 

Tsrs? 

TSTS3 

TST54 

TST55 

TST56 

TST57 

TST6 

TST60 

TST7 

TTST 

TWOSYN 

TYPOAT 

TYPE 



016334 
016516 
016700 
01 7062 
017270 
017356 
017446 
017534 
0U262 
01 7624 
017776 
020112 
020230 
020346 
020464 
020614 
020754 
014534 
021114 
021342 
021556 
02205? 
022566 
022702 
023216 
023454 
014426 
023712 
024244 
024446 
025546 
026746 
027200 
027316 
027706 
014566 
* ••••%* u 

0U726 
004 U6 
010000 
006754 
104401 



TVPWSG 
VEC 

VECBAP 

VECTR 

WHAT 

WHERE 

WHICH 

WROCNT 

WftKO.F 



006654 
010402 
013400 
014132 
005770 
006054 
013372 
006406 
006742 
006542 



3516 


3567# 




3569 






3622 


5673f 




5675 


5727f 




3729 


3787* 




5789 


581 7f 




$819 


384 7« 




3849 


3877Jr 




5015 


3038« 




3879 


3908« 




3910 


3958* 




3960 


3997f 




3999 


40361 




4038 


4075* 
4114* 




4077 




4116 


4157* 




4159 


4203* 




3040 


3064* 




4205 


4249* 




4251 


4316* 




'4318 


4373* 




4375 


4450* 




4452 


4527* 




4529 


4604* 




4606 


4660* 




4682 


4748* 




3066 


3094* 




4750 


4818* 




4820 


4920* 




4922 


4983* 




4985 


5232* 




5234 


5508* 




5510 


5572* 




5574 


5613* 




5615 


5709* 


5778 


3096 


3137* 




5711 






3139 


3180* 




1640* 


1642* 


1737* 


844« 






2302 


2320 


2323* 


1466 


U78 


1500 


1670 


1672 


1836 


2084 


2100 


2107 


2316 


2321 


2385 


2708 


2717 


2724 


2300 


2303* 




24671 


2680 




2851 


2863* 


2958 


^955* 




2095* 


2101* 




2096* 


2110 


2120* 


2669 


2859* 




2167* 


2200t 


2208* 


2315 


2318* 




2276 


7271 


2280* 



1555 
1987 
2108 
2401 
2731 



2964* 2972* 



1560 


1566 


1593 


1598 


1993 


1998 


2002 


2007 


2159 


2199 


2250* 


2303 


2506 


2509 


2561 


2607 


2759 


2751 


2852 





1639 
2008 
2304 
2624 



1646 
2010 
2307 
2630 



1665 
2013 
2308 
2667 



1666 
2017 
2310 
2687 



1668 
2082 
2312 
2701 
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XCSR 

XERR 

XHEAO 

XPASS 

XPOLY 

XSTATQ 

XTSTN 

XVEC 

ZERO 

SAP T HO 

SASTAT* 

SATYC 

»ATY1 

UTY3 

$An4 

SAUTOB 

(BASE 

WDADR 

WOO AT 

iCDU1 

SCDU2 

tCHARC 

tCKSUR* 

tCHTAG 

SCMl = 

$CH2 = 

%cni - 

»C«4 = 
SCNTLG 
SCNTLU 
SCOD = 
tCPUOP 
SCRAP = 



004104 
004126 
010100 
004120 
031226 

011206 
007120 
004112 
001462 
002034 
••*•*• u 

004722 
004676 
004 ''04 
004714 
001234 
001372 
001222 
001226 
001376 
001400 
004672 

u 

001200 
000006 
000014 
000006 
000005 
00S534 
005527 
•*••** u 

001 344 
177777 



ICRLF 

SODWO 

S0DU1 

SODWIO 

SOOWl 1 

S00U12 

S0DW13 

SD0U14 

S0DW1S 

SDDU2 

S0DW3 

S0DW4 



001313 
001402 
001404 
001426 
001430 
001432 
001434 
001436 
001440 
001406 
001410 
001412 



1667 
1673 
1500 
1671 
4382- 
5264« 
1509 
2309 
1669 
1030# 
1182 
1906 
1877 
1875# 
1821 
1878/r 
91 7# 
992* 
912* 
914* 
994* 
995* 
1838* 
2253 
900* 
932* 
932* 
930* 
938* 
2028* 
2002 
686 
966* 
1* 
3083* 
3284 
3405* 
3660* 
3839 
3992# 
4190* 
4441 
4743* 
5495* 
945* 
996* 
997* 
1006* 
1007* 
1008* 
1009* 
1010* 
1011* 
998* 
999* 
1000* 



1705* 
1714* 
2467# 

1711* 

441 1» 

5334« 

2467* 

2354* 

1708* 

6208 

1188* 

1921 

1879* 

1876* 

2331 

2938 



2935 



2976* 

3086 

3287* 

3443* 

3663 

3842* 

4025* 

4193 

4445* 

4805* 

5498 

^837 

2943 



4459* 
5623' 



4488* 
5719« 



4536' 
5984 



2979 

3089* 

3305* 

3446 

3668* 

3866* 

4028 

4198* 

4515* 

4808 

5503* 

1872 



2982* 

3126* 

3308 

3450* 

3713* 

3869 

4031* 

4237* 

4518 

4813* 

5561* 

2007 



3002* 

3129 

3311* 

3501* 

3716 

3872* 

4064* 

4240 

4522* 

4908* 

5564 

2027 



c n 

USER SYMBOLS 



4565* 4613* 4642* 
5986 59Q4# 



SEQ 0132 



4690' 



4758« <.845« 5014- 5065* 



1848* 


1855 


1864* 


1869* 




933* 


934* 


935* 


936* 


937* 


933* 


934* 


935* 


936* 


937* 


932 








943* 


939* 


940* 


. 941* 


942* 


2027* 











938* 
938* 



3005 


3008* 


3027* 


3030 


3033* 


3132* 


3169* 


3172 


3175* 


3228* 


3329* 


3332 


3335* 


3364* 


3367 


3504 


3509* 


3554* 


3557 


3562* 


3722* 


3776* 


3779 


3782* 


3806* 


3896* 


3899 


3903* 


3947* 


3950 


4067 


4070* 


4103* 


4106 


4109* 


4244* 


4305* 


4308 


4311* 


4361* 


4592* 


4595 


4599* 


4669* 


4672 


4911 


4915* 


4967* 


4970 


4978* 


5567# 


5598* 


5601 


5608* 


5695* 


2087 


2108 


2159 


2303 


2304 



3053* 

3231 

3371* 

3607* 

3809 

3953* 

4144* 

4364 

4675* 

5215* 

5698 

2312 



5056 

3234* 

5598* 

5610 

5812* 

5986* 

4147 

4368* 

4757* 

5218 

5704* 

2607 



3059* 

3281* 

3401 

3615* 

3856* 

5989 

4152* 

4438* 

4740 

5227* 

2667 
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CROSS REFERENCE 


tDDyS 


AA4 / 4 i 


lOOlf 








IDDW6 


OOHiO 


1002# 








IDDW7 


ft/\ 4 ^ ^ A 

00K20 


1003# 








(DDWB 


OOH22 


1004* 








s ft 1 1 A 


001 


1005f 








rv f 1 1 ^ T 

•DEVCT 


001 icb 


957# 


2941 






•OtVB 


f\l\^ T7Z. 
001 31 ^ 


993f 




1 705* 




AA/ 1 AA 

OOh 1 00 


1682 


1691 


1 M(\ 
1 OtO 


IcNDAu 


AA/ A7A 
00*tO» 0 


876 


1464 


1698* 


2334 


•cNDC T 


AA/ AC/ 
00*»U J*» 


1693* 






1483 


»CNV 


001 530 


962* 


1445 


1481 


•CNVn 


AA1 TT7 


963* 


1486 


1A1 A 


1 OC J 


•CUP 


00300c 


1661* 


5711 






cc no r T 


AA/.A/./L 

OU**v'*0 


1690* 


1694 




1726 




001 £03 


903* 


1432* 




• C Bli A V 

IcRHAX 


AA< 01 C 

001 cl 3 


909* 


1778 








00631 C 


866 


2274* 








UU 1 C 1 0 


910* 


1441* 


• C OD TQ 


AA1 C 1 J 
UU 1 3 1 c 


1064* 


2295 


1 716 


2X42* 


CC D T Tl 


Am 51 5 


907* 


1676 




UU 1 330 


961* 


1194 






cc TC 4ir\ 


001 H«»C 


1014* 






cc A T Al 


001 3cU 


954* 


1912* 




1915t 


cc c 1 


AACI £ 5 
UU3 1 Hc 


1875* 


1878* 


1 TVU 


cell 1 r 


Am 5C& 
001 c 30 


928* 


1841 


1872 




cr f 1 1 c 
»F ILL) 


AA 1 5 ^ C 

001c33 


92 7# 


1872 






•uDADn 


AA1 55A 

001 ccO 


911* 










AA1 55Z. 
001 C€«» 


913* 










UWiUOU 


1695* 










****** II 
w w w w w w y 


2252 








•HO 


AAAAAA 
UUUUUU 


696 








CU 1 QT C 


AA5A'tZ. 
UUcU3<i 


1189* 








CU 1 nr T 


AnS735 
UU5 < cc 


2075* 


2086* 


1764 


1766* 

1 ■ WW 




A01 3rti 
Uv 1 


904* 


1763* 


111 1 1 ID 
•ILLUr 


UU f J 1 0 


2364 


2380 


2404* 




C 1 UDl 1 T 


nn<(73^ 

UU3f C** 


2091* 


2264 








UU 1 


918* 




2330 

C •/ Jw 




CI TCMB 


UU 1 c 1 


908* 


2290* 


2027 




001 XI £ 

wU 1 J 1 


946* 


1872 


2017 

Cw 1 • 


»L r LU 


00^1^1 
UU ? 1 •» 1 


1916* 


1922* 




1647 




001 

UU 1 CUw 


905* 


1443* 


1643* 




001 710 
UU 1 C 1 u 


906* 








CMAI\B1 

vnAUn 1 


001 x^o 

UU 1 jyyj 


979* 










001 

UU 1 33'* 


983* 








CMAfVDX 


AA1 TAA 
UU 1 30U 


986* 










OA1 XA£ 
UU 1 30«i 


989* 






1769 


CMA 1 1 


001 XI A 
UU 1 ^ 1 0 


952* 


1190 


1 194 




001 X4A 

WW < 


973* 


2937 






$MAns2 


001352 


981* 








SHAMS 3 


001356 


A A J M 

984* 








MAAS4 


001362 


987* 








MBADR 


002036 


1190* 




1917* 


1921* 


WFLG 


005U0 


1876* 


1882 


SMNEW 


005S52 


2031* 


2509 


1895 




(HSCAO 


001332 


959* 


1892* 






001534 


960* 


1897* 







D 11 

TABLE ~ USER SYMBOLS 



SEO 0133 



1816 
1886 



1755 



1884 



1757* 



1908 

1778 
2388* 



2328 2494 
2285* 2299 



2313* 2387* 



1777 



2547* 2349 2623* 2633* 2635 



CZKCE 


HACtll 


30a(1052) 


08- J t 


CZKCE.PII 98-JUL-80 08:24 










CHCUD 


V/U75*i 1 




cUct* 








Q7LM 


CUT VD) 


WW 1 } 




0A2< 




oni 

UU I Jfl 






MTVP4 


UU 1 J 




TOO* 


VHA LI 1 






1767 




UUUU J ' 




If 








X04^f 








^1^4 








Jew 1 








??44 








J** ^w 
















^724 








JO Jw 








3912 

J T 1 C. 








4031 

~W^ 1 








4119# 








4246 








44X8 

•••• JO 








4609 








4813 








49884 

~ » w W^ 








5569 








57784 


iMUl L 


001254 




9261 


iMyTSTs 


000000 

www 




29861 








34544 








40354 








48174 


IQUFR 

w t n 


004S34 




1759 


iPASS 


001324 

WW • ^4." 




9564 




002042 

WWfc W~ fc 




11924 


tPWftOM 


007126 

W V • ' !• W 




864 




007512 




24024 


(PtfftUP 


007200 

WW' k w w 




2374 


iOUES 


001312 




9444 


tROCHft 


005U4 

WW ^ ' ~ ~ 




19474 


iftDDECs 


t*tt* • 


u 


2256 


IDOL IN 


005264 




19754 


SROOCT 


005564 




20484 


IRDSZ z 

1^ «J ft 


000007 

WW WW W ' 




19684 


&RFGAO 


001260 

WW ' w w 




9304 




00126? 

W 1 c uc 




9324 




001264 

WW 1 c w^ 




9334 




001266 

W 1 Cww 




9344 


MEG3 


001270 




9354 


»ftE04 


001272 




9364 


iREGS 


001274 




9374 


(RTNAO 


004102 




17044 


»R2A = 


•t*«** 


u 


2256 


ts 


000061 




14 








3182 








34154 








3789 
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1890 


1898* 


1910 


1914* 


2506 




4 

• 




17774 








2976 


2982 


2984 


29914 


3053 


T n f n 

3059 


5061 


T4\Z O 

3068 


3142 


31434 


Y 4 Z A 

3169 


5175 


3287 


3289 


5296 


32974 


33454 


3364 


T T 74 

5371 


3373 


3452 


3459 


54604 


T r A 4 

3501 


3607 


3615 


5617 


5624 


3731 


37324 


»7*>Z. 

5776 


5782 


3842 


3844 


TO C 4 

3851 


38524 


59134 


3947 


3955 


5955 


4033 


4040 


40414 


4064 


/ 4 4 4 

4144 




4 154 


4101 


4253 


42544 


/ TAC 

4505 


/ T4 4 

4311 


4445 


4447 


4 4 C C 

4455 


44564 


46104 


4669 


4675 


Hbff 


4815 


4822 


48234 


4908 


5215 


* ^ ^ ^ 

5227 


5229 


5236 


5576 


55774 


5598 


5608 


1843 


1872 






50124 


30574 


50654 


50954 


551 34 


3)664 


361 t4 


JOI CW 


40^44 


41 1 34 


41 504 


L 7ft b • 

42Ut» 


49194 


49824 


52514 


55074 


1742 


1755 


1765 


17714 


1063* 




1 ^07* 


1 ABB* 
1000* 


142V 


23644 






23804 








lo'2 


201U 


■)ft07 


£Uo4 


2253 








2254 








2255 








2145* 


2148 






1563* 


1575 


2142* 


2l4V 


2141 • 


21 50 


6208 






21^1 


ocuo 




2139* 


2152 


6208 




2138* 


2155 


6208 




2989 


29914 


5015 


50174 


31864 


3241 


52454 


5294 


3457 


54604 


3516 


5S194 


57924 


5819 


58224 


5849 



E 11 
USER SYMBOLS 



3UUc 




3U < u 


ftl 7it 


TftAO« 




TOBO 
3U07 


V7 1 


5177 


3185 


51864 


j228 






XXI X 


xx2n 


5580 


33814 


3598 


34C5 


55U7 




33 1 0 


X^1 Ox 
33 1 7* 


30c3» 


300U 


3000 


XA7n 

30' U 


3 ( o*» 


T701 

3f 7 1 


3 ' 7£« 


30U0 


5866 


3872 


5874 


5881 


5962 


39634 


5986 


5992 


4070 


4072 


4079 


40804 


41624 


4190 


4198 


4200 


LXy X 


*i3cU 




lxai 


4515 


4522 


4524 


4532 


4684 


46854 


4757 


4743 


4915 


4917 


4924 


49254 


52574 


5495 


5503 


5505 


5610 


5617 


56184 


5695 


51564 


31794 


32584 


329' # 


57264 


37864 


58164 


58464 


£>4ftf 




4X724 


44494 


55714 


56124 


57084 




1705 


1715 


1761 


1778 


2087 

CUO r 


2107 

CIV 


26X0 

C U J w 


2702 

C ■ wc 


3040 


30434 


5066 


50694 


32974 


3518 


33214 


5342 


3569 


35724 


3622 


36254 


38524 


3879 


38824 


5910 



SEO 0154 





3U33 


3U33 


Xf\L 3 


3uvy 


T1 ftftll 

3 1 UU* 


T1 3A 
3 I cO 


31 3c 


3234 


3256 


5244 


52454 


33c 1 » 


TT3a 
33c7 


xxxs 

3333 


XXX7 

333 ' 


3407 


5414 


54154 


5445 


33 3*» 


330c 


3 jO*» 


X^71 

33 ' 1 


TA77 

30 f ' 


XA7Rit 
30' Off 


X71 X 

3 ' 1 3 


X7P3 
3 ' cc 


3812 


5814 


5821 


58224 


300c» 


3070 


xonx 

3tU3 


37v J 


3994 


4001 


40024 


4025 


4105 


4109 


4111 


4118 


4207 


42084 


4237 


4244 




4X70 


4X78 


4X794 


45334 


4592 


4599 


4601 


4745 


4752 


47534 


4805 


4967 


4978 


4980 


4987 


5512 


55134 


5561 


5567 


5704 


5706 


5713 


57144 


33154 


33394 


33754 


54094 


38764 


39074 


59574 


59964 




4A0X« 


46794 


47474 


2583* 








?71 H 

c ' 1 O 


27X2 

C ' JC 


2752 




3096 


31004 


5139 


51454 


35454 


5378 


55814 


5412 


5675 


56764 


3729 


57524 


39134 


3960 


59634 


3999 
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CROSS REFERENCE TABLE 



F 11 
USER SYMBOLS 



SEQ 0135 







/ AA^ m 

40021' 


/ A 9 a 

4038 


/ A / 4 M 

4041* 


4077 


/ Aa A « 

4080* 


/ 4 4 Z 

4116 


J 4 4 A M 

41 19* 


/ 4 C A 


4162* 


/ T A C 

4205 


/ ^ A O « 


4^5 1 


4254* 






4318 


4321* 


4375 


4379* 


4452 


4456* 


4529 


4533* 


4606 


4610* 


4682 


f B f M 

4685* 


4750 






4753# 


4820 


4823* 


4922 


4925* 


J AB C 

4985 


< A B B M 

4988* 


5234 


5237* 


C C 4 A 

5510 


5513* 


5574 


5577* 






5615 


5618* 


5711 


5714* 




















ISAVRE* 




2256 


























SSAVR6 


007322 


« » - 

2373* 


2381 


^T D ^ ^ 

2382* 


^TOT A. 

2383* 


^ / A^ a 

2406* 


















ISCOPE 


004134 


862 


i733* 


^ AA^ 

2907 
























000000 


16B6 


1 tit 
1 r 54 


1756 




















•SVLAO 


00h5 ic 


1 7CA 

1 f 50 


1 7AB* 

1 fboil 
























»5vPC = 


AAAA/ A 

000040 




or V 






















1 77rt 

1 1 3U 


»SWR = 


1 ^ / AAA 

1 64000 




6v6 


7H3 


o/ / 
744 


1 638 


1 OOO 


1 07 f 


1 7f\X 

1 yU3 


1 7ft«; 

1 f U3 


1737 
\ (CI 


1 73B 

1 1 CO 


1 73Q 

1 y £7 




1 ^^1 


1 7C 7 

1 r33 


i 7C C 


1 7CA 

1 r 50 


1 7C7 

1 1 3 f 


1 7C0 

1 f 30 


1 7QQ 
1 f 37 


1 771 


1 777 

\ I 1 I 


3/.n7 
ChU3 


c9oo 


7ni L 
3U 1 *» 


7n7Q 
3U37 






T A^ C 

3065 


1 AA C 

5095 


7 1 7 P 

5158 


7 i Q 1 

51 81 


7 A 
5240 


7 0Q7 
3£73 


7717 

331 f 


77/. 1 

3341 


7777 


7y 1 1 
3h 1 1 


7/. CI. 

3*136 


7C 1 C 

331 3 


3368 






3621 


1^7/ 

5674 


5728 


3f 88 


7Pi P 

381 8 


TPy 0 
3848 


7B7B 

38/8 


3907 


3937 


7aQB 
3990 


/ n77 
h03' 


40y6 


A 1 1 c 

*> 1 1 3 






/ 4 C D 


/ ^A/ 

4204 


i ^ C A 

4250 


/ 7 1 7 

431 ' 


y 77y 
43f4 


y / c 1 
443 1 


y c^Q 
43£B 


y 1.AC 
4603 


y CB 1 
4681 


/. 7/ Q 
4'h9 


y Bi Q 
4819 


y Q31 


y Qfiy 






5233 


C C AA 

5509 


CC77 

5573 


c ^ 1 y 

5614 


C71 A 

5710 


















SSUREG 


001340 


AZ / M 

964* 


1 / / 7 
























tSWRKK' 


000000 


4 ^TA 

1730 


























•TESTN 


AA1 

001322 


955* 


1 f 6V* 
























STines 


001310 


943* 


1686* 


1 7CD^ 

1 r5o* 


1 '64 


1 71. 7 A 

1 fbf* 


1 777 

\ f ( f 
















STKB 


J (A 4 ^ t d. 

001 246 


A1 V M 

923# 


4 7/ A 

1740 


i 07 / 

1954 


4 OC i 

1951 


4 AC7 

1957 


2496 


5/ AP 

£498 


ocy A 
£340 


£9£0 










STKS 


001244 


922# 


1738 


1934 


1949 


1955 


2538 


2918 


6182 












»T«PO 


001276 


938« 


1502* 


2469 


2875* 


2876* 


5812* 


5824* 


5858* 


5869* 


5904* 


5915* 


5956* 


5962* 






^AAQ * 

6008* 


1A1 Q* 
60 1 7* 


6034* 


60o3* 


oiu«»* 


iti no* 

0 1 Ut* 












STHPl 


AA4 9AA 

001300 


959* 


1 CAT * 


^/ 7 1 

24 r1 


C 1 1 C A 

5165* 


5166* 


CI 1.7 

516f 


C 3Afi« 
3£08* 


C5AA» 

3£09* 


c 5 1 n 
3£lU 


3H 3«i* 


3*»33" 


5436 


5488* 


5489* 


C / OA 

5490 


C^ P c 

5685* 


C X PI * 

5686* 


C 1 P 7 

5o8r 


C771 A 

3 r r 1 * 


C 77 1 « 


C777 

5f r 3 


3836* 


ca73 
38' £ 


CBB3* 
3B8£* 


CBBC 

3BB3 


3 899* 






r A A V ^ 

5903* 


C AT A^ 

5930* 


C AT T A 

5937* 


C A7C ^ 

5975* 


CAP Aa 

5980* 


1 AAl A 

6006* 


602£ 








/.OC7* 
h933* 


CI C 1 * 


<1 <3* 
3 1 3£" 


ITBP2 


A A 4 9 A^ 

001 302 


A/ A ■ 


1 C AC A 

1 505* 


1 526* 


1 C C 7 

1 555 


1 562* 


11 77 


£063 


COOO 


£ f f 0* 


493£* 




5168 


5194* 


5173* 


3£l 0* 


3£ 1 1 


34£U* 


C£ 31 * 
34£l* 


C/. 7A* 

3*»36* 


3H3f 


Cy7A « 


3h » 3" 


3H7U" 






5491 

z ^Aa 


C^71 A 

5671 • 


5672* 


5687* 


56B8 


C7C7* 

5f 3f * 


3'3B* 


3f f 3* 


C77/. 
jflH 


6 1 3H* 


0 1 HH" 


A1 C7* 

0 1 3f " 


7n* 


»TWP3 


AA 1 T A/ 

001 j04 


6208 


1 CAK« 

1 >06* 




c6' 3 


c6' 8 


£083 


£OBo 


37AS 
£ f 03 


c ' 00 


377T 

CI f J 


3776 
£ f « O 






C T Mfl/ 


AAI TAA 

001 300 




1 50r • 




e030* 


0k7r\* 

cOrU* 


2861 


30*»U" 


3 OHO" 








3095* 

JV/7 


31 36 

J 1 Jw 




AAAA^A 

000060 


1 m 


AOA 

670 


CTOO 


C700W 


xn^ ? 




3U3 1 








3093 


31 36* 


T1 7Q 

3 1 f T 


T1 B1 if 

3181" 


3c30 


T3/,nir 


T3Q1 
3£7 1 


3c7 JW 


33 1 3 


xxy 7a 

33 1 I • 


J J37 


3341* 

J JH 1 » 


3375 


3377* 






Tz.no 


JH 1 1 • 




j"»30w 


33 1 3 


33 1 3* 










367? 


3674* 


3726 






J f CO" 


3' 00 


T7BBif 

J I oo« 


jO I O 


TR1 A* 

}0 1 o* 




3A4R* 


3876 


3878* 


3907 

J r w • 


3909* 


3957 


3959* 






3996 


SttO* 


/ ATC 
4035 




4Uf 4 


*IUf 0* 


11 1 7 
•» 1 1 3 


•» 1 1 3* 


H 1 30 


4158* 


4202 


4204* 


4248 






•i^jO* 


/.lie 


431 f ■ 


LXTi 
hit c 




LLLQ 


hH3 I w 


4«;pA 

••3cO 


H J£Ow 


46(13 


460S* 


4679 


4681* 








L7LQM 


HO 1 / 


••0 1 7» 


17 1 7 


••7£ 1 • 


4QR3 


4084* 


5?31 

.^C J 1 


5233* 


5507 


5509* 


5571 






>5f 3* 




LM 

30 1 


3 ' V/0 


3 1 1 V* 


£7£3* 
















»TPB 


AA 1 ^ C O 

001252 


925* 


1861* 


1 879 




£343* 
















tTPFLG 


001257 


929# 


1 PI A 

1810 


1 87^ 

1872 






















$TPS 


A A 4 ^ f A 

001250 


924# 


1 PCO 

1859 


i P7^ 

1872 


0177 

2277 


£541 


2921 
















STRAP 


A A A i ^ 1 

006414 


868 


2227M 
























JTRAPZ 


AAX i TX. 

006436 


2238' 


2249 
















££OU« 


CC\J * ^ 




2265* 


»TRP s 


AAAA^I 

000021 


2242* 


2251* 


££53 


££34* 


££33* 


££36* 




£c 30* 


33^0* 

££37* 








2266* 


2267* 


2268* 

bWW* 


















STRPAD 


006450 


2232 


2249* 
























$TST« 


002040 


1191* 


















2612 


2619 


2621 


2988* 


STSTNH 


001202 


902* 


1442* 


1726 


1768* 


1769 


1771 


1778 


2356 


2410 


3014* 


3039* 


3065* 


3095* 


3138* 


3181* 


3240* 


3293* 


3317* 


334U 


3377* 


541 !• 


3456* 






3515* 


3568* 


3621* 


3674* 


3728* 


3768* 


3818* 


3848* 


3878* 


3909* 


3959* 


5998* 


4057* 






4076* 


4115* 


4158* 


4204* 


4250* 


4517* 


4374* 


4451* 


4528* 


4605* 


4681* 


4749* 


4819* 






4921* 


4984* 


5233* 


5509* 


5573* 


5614* 


5710* 
















005520 


1977 


1978 


1990 


2008 


2022 


2026* 

















1 
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G n 

USER SYMBOLS 



SEO 0136 



tTVPBNs 

tTYPOSs 

»TYP£ 

tTYPtC 

»TYP£X 

tTYPOC= 

tUNlT 

fUNlTH 

lUSWR 

»VECT1 

tVECT2 

tXTSTR 

$Y 

tSGET4« 
»40CAT= 



.ADVAN 
.BEGIN 
.CNVRT 
.CONVR 
.DATAC 
.DELAY 
.HSTCL 
.RE SOS 
-ROHCL 
.SAV05 
.SC0P1 
.START 
.TI«ER 
.»ASTA= 



#•«••• u 
• ••••• [} 

0044 U 
004626 
004674 

vi 

001330 
002044 
001342 
001366 
001370 
004174 
000000 
000000 

u 

033730 



006060 
003464 
006170 
006164 
007446 
007332 
007362 
006132 
007400 
006072 
004364 
002402 
007512 
*tt*t* [J 

002034 



2251 
2251 
1810# 
1840 
1865 
2251 
958f 
1195# 
965# 
990* 
991 # 
1736 

1# 
1697# 
1741 
856« 
1034* 
1231* 
1248« 
1264lf 
1280# 
1296* 
1705 
2483* 
3076 
2127* 
1615* 
2160* 
2159* 
2262 
2260 
2259 
2148* 
2261 
2134* 
1782* 
886 
2263 
1876 
1178* 



1903 
1847 
1867 



858 
1035* 
1233* 
1249* 
1265* 
1281* 
1298* 
1777 
2485* 
4255 
2267 

2266 

2265 

2439* 

2412* 

2423* 

2258 

2428* 

2257 

2256 

1427* 

2450* 

1879 

1183 



2242 
1854 
1870* 



2959 2940 

1744* 
1195* 



861* 
1036* 
1234* 
1250* 
1266* 
1283* 
1299* 
1778 
2539 
4269 



2250 
1859* 



874 
1045* 
1235* 
1251* 
1268* 
1284* 
1300* 
1872 
2542 
4292 



1443 2526 



1860 



875* 
1172* 
1236* 
1253* 
1269* 
1285* 
1301* 
1924* 
2563 
4322 



877* 
1178 
1238* 
1254* 
1270* 
1286* 
1303* 
1934 
2656 
4351 



879* 
1179* 
1239* 
1255* 
1271* 
1288* 
1304* 
2026* 
2697 
4902 



881* 
1181* 
1240* 
1256* 
1273* 
1289* 
1305* 
2027 
2805 
5122 



885* 


889* 


899* 


947 


1033* 


1183* 


1226* 


1228* 


1229* 


1230* 


1241* 


1243* 


1244* 


1245* 


1246* 


1258* 


1259* 


1260* 


1261* 


1263* 


1274* 


1275* 


1276* 


1278* 


1279* 


1290* 


1291* 


1293* 


1294* 


1295* 


1300* 


1470 


1480 


1587* 


1600 


2033* 


2087 


2376 


2405 


2448* 


2809 


2855 


2886 


2919 


2922 


5391 


6208* 
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COHMtN 


829* 








82t» 






t wHO" 


' £>• 


3UUQ 


>Uc3 




tlCT 




JjtO 




50«»0 




^^07 

>OTf 






Lt^^ < 








LLM 
•imU I 






••OO 1 


L7^L 


4718 








S077 






^707 

7CTr 


S^01 














O » "T 




C Cr ADC 


II7QC 
Ocrm 






re T DO t 


OCT" 






r.C T CUD 


ft9Q« 














VMF Ills 


1 V 






KMC OMT 


1 f 


woo 




Mil T 
nut ' 










OCT" 


cTOO 


^01? 




J J 1 J 


J 700 


jO I T 




H 1 30 


i7A? 

•»CVC 


4748 






3u 1 C 


S708 


rUr 




1 01 ft 

1 T 1 O 


1010 

1 T I T 


PUSH 


Oct* 


1 A7Q 

1 O ' T 


1 881 




1 f 


879* 

OCT* 








7087 

CTO f 








^SA7 






^.1 S7 


4705 


4749 




J ^ f c 


JQ 1 ^ 


S700 


ce TOO 1 

>C 1 rn 1 








cc T TDA 




77S^ 


7754 








CF TlIP 








I P 








^1 A^M 


879f 
















829f 


872 

o • c 


895 








256? 






J"* VT 


5454 




405S 




4^13 




498? 




5507 


CUD CM 


8?9f 

wCT» 






TRMTRP 








T VPRIli 


OCT* 






1 I r l/C V 


OCT" 








A7Q# 

OCT" 








0£ TV 








829* 






TrPOCT 


829* 






TYPTIT 


829* 






tASOAT 


686* 






$AUTO 


1* 


1512 




S8CC 


686* 


4361 


4438 


SeiNCR 


686* 


4669 


4737 


seiNui 


686* 


3713 





H 11 
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SEO 0157 



3051 


3081 


3111 


3124 


3154 


3167 


3201 


5222 


5257 


5275 


5505 


5527 


3431 
3701 


3441 


3480 


3490 


3499 


3538 


3542 


5552 


5591 


5595 


5605 


5644 


3711 


3758 


3762 


3804 


3834 


3864 


5894 


5926 


5*58 


5945 


5976 


4054 


4062 


4093 


4101 


4134 


4180 


4219 


4227 


4255 


4281 


4505 


4357 


4430 


4474 


4478 


4503 


4507 


4551 


4555 


4580 


4584 


4628 


4652 


4657 


4782 


4786 


4857 


4861 
5114 


4878 


4882 


4894 


4905 


4945 


4962 


5026 


5030 


5081 


5098 


5102 


5123 


5141 


5161 


5170 


5184 


5204 


5^15 


5276 


5317 


5321 


5346 


5350 


5367 


5371 


5585 


5592 


5410 


5450 


5459 


5450 


5532 


5541 


5551 


5559 


5596 


5659 


5681 


5690 


5746 


5767 


5776 


5848 



3057 
3672 
4315 


5065 
3726 
4372 


3093 
3786 
4449 


3136 
3816 
4526 


3179 
5846 
4603 


5258 
5876 
4679 


5291 
5907 
4747 


5515 
5957 
481 


5359 
5996 
4919 


5575 
4035 
4982 


5409 
4074 
5231 


5454 
4115 
5507 


2076 
1902 


2392 
2050 


2393 
2366 


2966 
2372 


2929 
















3058 
5675 
4316 


3064 
3727 
4373 


3094 
3787 
4450 


3137 
3817 
4527 


5180 
5847 
4604 


5259 
5877 
4680 


5292 
5908 
4748 


5516 
5958 
4818 


5340 
5997 
4920 


5376 
4036 
4983 


3410 
4075 
5232 


5455 
4114 
5508 


2255 


2256 


2257 


2258 


2259 


2260 


2261 


2262 


2263 


2264 


2265 


2266 


947 
2378 
3515 
4156 
5571 


950 
2986 
3566 
4202 
5612 


1175 
3012 
3619 
4248 
5708 


1177 
3037 
3672 
4515 


1184 
5065 
5726 
4372 


1656 
5095 
5786 
4449 


1725 
5156 
5816 
4526 


1795 
5179 
5846 
4603 


1874 
3258 
5876 
4679 


1935 
5291 
5907 
4747 


1939 
5315 
3957 
4817 


1968 
5559 
5996 
4919 



4515 4592 
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»BU' F t 


1 f 


■5/ 7Q 


70V7 


iCDAT A 


686* 




•CLOCK 


666* 




7TC 1 






606* 




1 Oil 




5156 


»LRC 


OOOv 


jOU 




ft r or c Li 


OOO' 


hOO J 


•» f 77 




1 » 






ftC MAT V 


OoOm 






•tOr 


1 • 


1 oto 




9tn iDL 


1 * 


1 wOO 




»r INl 


1 « 


J 1 • 0 




»r LAO 


ooo« 




7Cv ' 


• ( 1 n*T 
»T LU* 1 


OOO' 


A7 

7 10' 


Hit 1 r* 


1 if 








OOO* 


J 70 1 




Cut Anc 
»Ht ADC 


1 * 


o~o 


3806 




OOO* 




C t M I T 


OOO* 






Cl 1 MCI 
9L INC • 


OOO* 


J 1 OT 


3??a 

7cCO 


CI 1 11 


OOO* 




3002 


Cl 111 7 


OOO* 


JVOJ 




Cl Ml 7 


OOO* 


7 1 CO 






1 * 
1 * 






CM ADv 


OOO* 


H 1 tU 




CM A T r u 


000* 




SI 44 




1 it 

1 * 








OOO* 


Sc 7 ' 






1 • 
1 * 


7LA7 

CHO f 




CMlll T 

»nUL 1 


000* 






CDACCM 


1 a 
1 * 


1 OOc 




CP 4 T T f 


OOO* 


H 1 u J 


4144 


CDC A 1 1 

•rr AIL 


1 * 


C 7 3 I 






OOO* 


Owe T 


A039 

vw7' 


cm IF CT 


1 « 

1 * 


Cv Jr 


2671 




1 * 
1 * 


?41 1 
c 1 ' 


241 7 




If 


C"» 1 H 






3160 


3191 




jjOJ 




341 7 




3575 


3580 


3601 




JO J f 


3887 


3919 






421 3 


4221 




4761 


4765 


4769 




7c wO 




5418 






5653 


5669 




JO J 1 


^ft4P 


5860 




OU 1 u 


^014 


601 7 




6123 






SRCRC 


686f 


4908 




tREC 


686« 


3896 


3947 


SROVAR 


If 


1016 




tSCADD 


1# 


1734 




tSCADi 


1« 


1773 




tsiwc 


If 


S968 




tSINAC 


686f 






»SOFTC 


If 


2487 
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3933 


3940 


3971 


3980 


5199 


5425 


5479 


5676 


4457 


4486 


4534 


4563 


3246 


3263 






3836 


3866 






3027 


3053 






5187 


5413 


5467 


5664 


2679 


2761 


2769 




2454 


2459 


2993 


3018 


3193 


3212 


3214 


3249 


3419 


3424 


3434 


3462 


3628 


3633 


3654 


3681 


3929 


3931 


3969 


3978 


4229 


4260 


4263 


4283 


4799 


4937 


4950 


4955 


5423 


5432 


5444 


5h58 


5674 


5683 


5740 


5755 


5864 


5867 


5873 


5886 


6023 


6033 


6043 


6056 


3986 


4025 


4064 





I 11 

MACRO NAMES 



4010 4019 4049 4058 
5762 

4611 4640 



5750 



3044 


3070 


3102 


3104 


3251 


3267 


3269 


3297 


3464 


3469 


3473 


3483 


3686 


3707 


3738 


3742 


4008 


4017 


4047 


4056 


4286 


4327 


4331 


4338 


4964 


5135 


5149 


5154 


5472 


5477 


5486 


5528 


5760 


5769 


5787 


5800 


5889 


5906 


5910 


5913 


6060 


6063 


6076 


6079 



SEQ 0158 
4088 4097 4215 4225 



3115 


3117 


5145 


5147 


3321 


3547 


5556 


5585 


3493 


3522 


5527 


3548 


3747 


5770 


3797 


5827 


4086 


4095 


4128 


4168 


4695 


4697 


4701 


4751 


5163 


5178 


5192 


5197 


5535 


5545 


5555 


5580 


5815 


5819 


5822 


5828 


5919 


5959 


5941 


5958 


6090 


6092 


6107 


6121 
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MACRO NAMES 



SEQ 0139 



tSTUff 

SSWPAC 

ST CHAR 

STCRC 

S1RANW 

tTRANi 

tTSTN 



tUPADD 
tVARlA 

lyiNOO 

SXZ 



$ZkROS 
SfCHRE 
SSCnTM 
StESCA 
SSNEWT 



SSSCOP 
StSET 

MSKIP 

.EQUAT 

.HEADE 

.SETUP 

.lACTI 

.»APTB 

.SAPTH 

.SAPTY 

.SCATC 

.$CHTA 

.»EOP 

.SERRO 

.SERRT 

.SPOWE 

.SROOC 

.SREAO 

.SSCOP 

.STRAP 

.$1YPE 

.$Typo 



686« 
686« 
686« 
686# 
686« 
686« 
U 
3511 
4154 
5569 
1« 
1« 
686« 
1« 
3228 
3509 
3866 
4152 
4669 
5567 
686« 
893# 
893# 
829# 
829« 
3513 
4156 
5571 

1« 
2242# 
2267 
829# 
1« 
1« 
1# 
1* 
1« 
1# 
1# 
1» 
1« 
1# 
1« 
1# 
1« 
1« 
1« 
1# 
1# 
1« 
1# 



3281 
4826 
4805 
4845 
3364 
2984 
3564 
4200 
5610 
2385 
888 
3501 
2976 
3234 
3554 
3872 
4190 
4675 
5598 

932 
938 

2986 
3566 
4202 
5612 
1717 
2253 



719 
686 

870 
94 8# 
1173 
1872 

893 
1654 



2360 
2034 
1931 
1721 
2219 
1793 



3305 
4925 
4967 
5014 
3398 
3010 
3617 
4246 
5706 



4991 
5215 
5065 
3443 
3035 
3670 
4313 



5240 



5264 


5334 




















3061 
3724 
4370 


3091 
3784 
4447 


3134 
3814 
4524 


3177 
3844 
4601 


3236 
3874 
4677 


3289 
3905 
4745 


3313 
3955 
4815 


3337 
3994 
4917 


3373 
4033 
4980 


3407 
4072 
5229 


3452 
4111 
5505 



3554 


3607 


3660 
















3132 


3169 


3175 


2982 


3002 


3008 


3027 


3033 


3053 


3059 


3083 


3089 


3126 


3281 


3287 


3305 


3311 


3329 


3335 


3364 


3371 


3398 


3405 


34^3 


3450 


3501 


3562 


3607 


3615 


3660 


3668 


3713 


3722 


3776 


3782 


3806 


3812 


3836 


3842 


3896 


3903 


3947 


3953 


3986 


3992 


4025 


4031 


4064 


4070 


4103 


4109 


4144 


4198 


4237 


4244 


4305 


4311 


4361 


4368 


4438 


4445 


4515 


4522 


4592 


4599 


4737 


4743 


4805 


4813 


4908 


4915 


4967 


4978 


5215 


5227 


5495 


5503 


5561 


5608 


5695 


5704 






















933 


934 


935 


936 


937 


















939 


940 


941 


942 




















3012 


3037 


3063 


3093 


3136 


3179 


3238 


3291 


3315 


3339 


3375 


3409 


3454 


3619 


5672 


3726 


3786 


3816 


3846 


3876 


3907 


3957 


3996 


4035 


4074 


4113 


4248 


4315 


4372 


4449 


4526 


4603 


4679 


4747 


4817 


4919 


4982 


5231 


5507 


5708 


























2254 


2255 


2256 


2257 


2258 


2259 


2260 


2261 


2262 


2263 


2264 


2265 


2266 



ASS. 033730 



000 



LZKCE HACY11 30A(1052) 08-JUL-80 08:24 PAGE U3 
CZKCE.Pn 08-JUL-80 08:24 CROSS REFERENCE TABLE 

ERRORS DETECTED: 0 

CZKCE.CZKC£/NL:TOC/SOL/CRF CZKCE.«AC,C2ICCE.P11/E0:DZDHE 
RUM-TIHE: 30 25 2 SECONDS 
RUN-TIHE RATIO: 105/58*1.7 
CORE USED: 53K (105 PAGES) 



K 11 
MACRO NAMES 



SEO OUO 



